[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-serv23835/src

Modified Files:
	xsd.lisp 
Log Message:
forgot multiplicity for empty elements in describe-xsd

Date: Mon Oct  3 14:24:11 2005
Author: scaekenberghe

Index: cl-soap/src/xsd.lisp
diff -u cl-soap/src/xsd.lisp:1.23 cl-soap/src/xsd.lisp:1.24
--- cl-soap/src/xsd.lisp:1.23	Mon Oct  3 11:40:35 2005
+++ cl-soap/src/xsd.lisp	Mon Oct  3 14:24:10 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: xsd.lisp,v 1.23 2005/10/03 09:40:35 scaekenberghe Exp $
+;;;; $Id: xsd.lisp,v 1.24 2005/10/03 12:24:10 scaekenberghe Exp $
 ;;;;
 ;;;; A partial implementation of the XML Schema Definition standard
 ;;;;
@@ -387,7 +387,7 @@
       template
     (cond ((null contents) 
            (indent level)
-           (format stream "(~s)" element-name))
+           (format stream "(~s) ~a" element-name multiplicity))
           ((symbolp (first contents))
            (let ((primitive-type (first contents)))
              (case multiplicity