[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-serv5673/src

Modified Files:
	serialization.lisp 
Log Message:
added serialization support for characters (suggested by ian eslick)

Date: Sat Jan 22 11:23:55 2005
Author: scaekenberghe

Index: cl-prevalence/src/serialization.lisp
diff -u cl-prevalence/src/serialization.lisp:1.7 cl-prevalence/src/serialization.lisp:1.8
--- cl-prevalence/src/serialization.lisp:1.7	Fri Jan 21 01:05:01 2005
+++ cl-prevalence/src/serialization.lisp	Sat Jan 22 11:23:54 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: Lisp -*-
 ;;;;
-;;;; $Id: serialization.lisp,v 1.7 2005/01/21 09:05:01 scaekenberghe Exp $
+;;;; $Id: serialization.lisp,v 1.8 2005/01/22 19:23:54 scaekenberghe Exp $
 ;;;;
 ;;;; XML and S-Expression based Serialization for Common Lisp and CLOS
 ;;;;
@@ -204,6 +204,12 @@
   (s-xml:print-string-xml object stream)
   (write-string "</STRING>" stream))
 
+(defmethod serialize-xml-internal ((object character) stream serialization-state)
+  (declare (ignore serialization-state))
+  (write-string "<CHARACTER>" stream)
+  (s-xml:print-string-xml (princ-to-string object) stream)
+  (write-string "</CHARACTER>" stream))
+
 (defmethod serialize-xml-internal ((object symbol) stream serialization-state)
   (declare (ignore serialization-state))
   (write-string "<SYMBOL>" stream)
@@ -222,6 +228,10 @@
   (declare (ignore serialization-state))
   (prin1 object stream))
 
+(defmethod serialize-sexp-internal ((object character) stream serialization-state)
+  (declare (ignore serialization-state))
+  (prin1 object stream))
+
 (defmethod serialize-sexp-internal ((object symbol) stream serialization-state)
   (declare (ignore serialization-state))
   (print-symbol object stream))
@@ -457,6 +467,7 @@
 	  (:null nil)
 	  (:true t)
 	  (:string (or seed ""))
+          (:character (char seed 0))
 	  (:key (car seed))
 	  (:value (car seed))
 	  (:entry (nreverse seed))