Update of /project/cl-soap/cvsroot/cl-soap/src In directory common-lisp.net:/tmp/cvs-serv21182/src
Modified Files: xsd.lisp Log Message: fixed a typo
Date: Wed Sep 28 11:00:54 2005 Author: scaekenberghe
Index: cl-soap/src/xsd.lisp diff -u cl-soap/src/xsd.lisp:1.17 cl-soap/src/xsd.lisp:1.18 --- cl-soap/src/xsd.lisp:1.17 Tue Sep 27 20:22:53 2005 +++ cl-soap/src/xsd.lisp Wed Sep 28 11:00:51 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: xsd.lisp,v 1.17 2005/09/27 18:22:53 scaekenberghe Exp $ +;;;; $Id: xsd.lisp,v 1.18 2005/09/28 09:00:51 scaekenberghe Exp $ ;;;; ;;;; A partial implementation of the XML Schema Definition standard ;;;; @@ -529,7 +529,7 @@ (member-type (get-type member))) (indent level stream) (if (xsd-primitive-type-name-p member-type) - (format stream " Member ~s of primitive type ~s[ ~a]~@[ nillable~]~%" + (format stream " Member ~s of primitive type ~s [~a]~@[ nillable~]~%" member-name member-type (describe-multiplicity member) (get-nillable member)) (progn (format stream " Member ~s [~a]~@[ nillable~]~%" member-name