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