[cl-prevalence-cvs] CVS update: cl-prevalence/src/serialization.lisp

[Sven Van Caekenberghe]

Update of /project/cl-prevalence/cvsroot/cl-prevalence/src
In directory common-lisp.net:/tmp/cvs-serv17983/src

Modified Files:
	serialization.lisp 
Log Message:
bugfix: serialization of an empty string is <string></string> but
deserialization of that XML construct was NIL which is not a string
we now return an empty string in that case
thanks to randall randall

Date: Mon Oct  4 15:45:57 2004
Author: scaekenberghe

Index: cl-prevalence/src/serialization.lisp
diff -u cl-prevalence/src/serialization.lisp:1.2 cl-prevalence/src/serialization.lisp:1.3
--- cl-prevalence/src/serialization.lisp:1.2	Tue Jun 22 10:37:23 2004
+++ cl-prevalence/src/serialization.lisp	Mon Oct  4 15:45:56 2004
@@ -1,6 +1,6 @@
 ;;;; -*- mode: Lisp -*-
 ;;;;
-;;;; $Id: serialization.lisp,v 1.2 2004/06/22 08:37:23 scaekenberghe Exp $
+;;;; $Id: serialization.lisp,v 1.3 2004/10/04 13:45:56 scaekenberghe Exp $
 ;;;;
 ;;;; XML and S-Expression based Serialization for Common Lisp and CLOS
 ;;;;
@@ -435,7 +435,7 @@
 	  ((:float :ratio :complex :symbol) (read-from-string seed))
 	  (:null nil)
 	  (:true t)
-	  (:string seed)
+	  (:string (or seed ""))
 	  (:key (car seed))
 	  (:value (car seed))
 	  (:entry (nreverse seed))