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