Update of /project/cl-prevalence/cvsroot/cl-prevalence/src In directory clnet:/tmp/cvs-serv14547/src

Modified Files: serialization.lisp Log Message: fixed a bug serializing empty hashtables in s-expr format (thx to Sacha De Vos for reporting this)

--- /project/cl-prevalence/cvsroot/cl-prevalence/src/serialization.lisp 2006/01/31 12:41:48 1.10 +++ /project/cl-prevalence/cvsroot/cl-prevalence/src/serialization.lisp 2007/03/16 15:37:18 1.11 @@ -1,6 +1,6 @@ ;;;; -*- mode: Lisp -*- ;;;; -;;;; $Id: serialization.lisp,v 1.10 2006/01/31 12:41:48 scaekenberghe Exp $ +;;;; $Id: serialization.lisp,v 1.11 2007/03/16 15:37:18 scaekenberghe Exp $ ;;;; ;;;; XML and S-Expression based Serialization for Common Lisp and CLOS ;;;; @@ -379,8 +379,9 @@ (write-string " . " stream) (serialize-sexp-internal value stream serialization-state) (princ ")" stream)) - object)) - (write-string " ) )" stream))))) + object) + (write-string " )" stream)) + (write-string " )" stream)))))

(defmethod serialize-xml-internal ((object structure-object) stream serialization-state) (let ((id (known-object-id serialization-state object)))