[elephant-cvs] CVS elephant/src/elephant

[ieslick]

Update of /project/elephant/cvsroot/elephant/src/elephant
In directory clnet:/tmp/cvs-serv3492

Modified Files:
	serializer.lisp 
Log Message:

The serializer will silently ignore objects (like structs) that it cannot
serialize.  If you think you've saved something (because you forgot it cannot
save structs) you will lose horribly (like I did).  This patch asserts an
error in the serializer if you try to serialize something the system cannot
handle.



--- /project/elephant/cvsroot/elephant/src/elephant/serializer.lisp	2006/06/19 01:03:30	1.7
+++ /project/elephant/cvsroot/elephant/src/elephant/serializer.lisp	2006/06/19 16:43:51	1.8
@@ -78,7 +78,7 @@
   (labels 
       ((%serialize (frob)
 	 (declare (optimize (speed 3) (safety 0)))
-	 (typecase frob
+	 (etypecase frob
 	   (fixnum
 	    (buffer-write-byte +fixnum+ bs)
 	    (buffer-write-int frob bs))