[cl-prevalence-cvs] CVS cl-prevalence/src

[scaekenberghe]

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