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