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

Modified Files: xsd.lisp Log Message: fixed repeating submember representation in sexpr in resolve-xsd-template and friends

Date: Fri Sep 30 21:21:43 2005 Author: scaekenberghe

Index: cl-soap/src/xsd.lisp diff -u cl-soap/src/xsd.lisp:1.19 cl-soap/src/xsd.lisp:1.20 --- cl-soap/src/xsd.lisp:1.19 Fri Sep 30 19:12:17 2005 +++ cl-soap/src/xsd.lisp Fri Sep 30 21:21:43 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: xsd.lisp,v 1.19 2005/09/30 17:12:17 scaekenberghe Exp $ +;;;; $Id: xsd.lisp,v 1.20 2005/09/30 19:21:43 scaekenberghe Exp $ ;;;; ;;;; A partial implementation of the XML Schema Definition standard ;;;; @@ -478,13 +478,13 @@ (error "Required repeating element ~s not bound correctly" element-name)))))) (case multiplicity ((1 ?) (if children - `(,element-name ,@(resolve-xsd-template-members contents (first children) namespace)) + `(,element-name ,(resolve-xsd-template-members contents (first children) namespace)) (when (eql multiplicity 1) (error "Required element ~s not bound" element-name)))) ((+ *) (if children `(,element-name - ,@(loop :for child :in children - :collect (resolve-xsd-template-members contents child namespace))) + ,(loop :for child :in children + :collect (resolve-xsd-template-members contents child namespace))) (when (eql multiplicity +) (error "Required repeating element ~s not bound correctly" element-name)))))))))