[cl-soap-cvs] CVS update: cl-soap/src/xsd.lisp

[Sven Van Caekenberghe]

Update of /project/cl-soap/cvsroot/cl-soap/src
In directory common-lisp.net:/tmp/cvs-serv4340/src

Modified Files:
	xsd.lisp 
Log Message:
bugfix

Date: Fri Sep 23 10:41:55 2005
Author: scaekenberghe

Index: cl-soap/src/xsd.lisp
diff -u cl-soap/src/xsd.lisp:1.8 cl-soap/src/xsd.lisp:1.9
--- cl-soap/src/xsd.lisp:1.8	Fri Sep 23 10:39:13 2005
+++ cl-soap/src/xsd.lisp	Fri Sep 23 10:41:51 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: xsd.lisp,v 1.8 2005/09/23 08:39:13 scaekenberghe Exp $
+;;;; $Id: xsd.lisp,v 1.9 2005/09/23 08:41:51 scaekenberghe Exp $
 ;;;;
 ;;;; A partial implementation of the XML Schema Definition standard
 ;;;;
@@ -204,7 +204,7 @@
 ;;; Binding and Resolving elements to and from actual data
 
 (defun get-name-binding (name bindings)
-  (second (member name bindings :test #'string-equal)))
+  (second (member name bindings :test #'equal)))
 
 (defun bind-element (element bindings xml-schema-definition namespace)
   (let* ((element (if (stringp element) (get-element-named xml-schema-definition element) element))