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))