[elephant-cvs] CVS elephant/src/elephant

[ieslick]

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

Modified Files:
	serializer2.lisp 
Log Message:
struct serialization test and bugfix

--- /project/elephant/cvsroot/elephant/src/elephant/serializer2.lisp	2007/02/25 03:37:37	1.28
+++ /project/elephant/cvsroot/elephant/src/elephant/serializer2.lisp	2007/02/25 03:40:19	1.29
@@ -519,7 +519,7 @@
 		(if maybe-o maybe-o
 		    (let ((typedesig (%deserialize bs)))
 		      (let ((o (or (handler-case
-				       (funcall (struct-constructor (find-class typedesig)))
+				       (funcall (struct-constructor typedesig))
 				     (error (v) (format t "got typedesig error for struct: ~A ~A ~%" v typedesig)
 					    (list 'caught-error v typedesig)))
 				   (list 'uninstantiable-object-of-type typedesig))))