Update of /project/cl-store/cvsroot/cl-store/lispworks In directory common-lisp.net:/tmp/cvs-serv9440/lispworks

Modified Files: custom.lisp Log Message: Changelog 2005-02-01 Date: Tue Feb 1 00:27:49 2005 Author: sross

Index: cl-store/lispworks/custom.lisp diff -u cl-store/lispworks/custom.lisp:1.4 cl-store/lispworks/custom.lisp:1.5 --- cl-store/lispworks/custom.lisp:1.4 Mon Nov 1 06:32:02 2004 +++ cl-store/lispworks/custom.lisp Tue Feb 1 00:27:49 2005 @@ -80,8 +80,8 @@ (let ((slot-name (restore-object stream))) ;; slot-names are always symbols so we don't ;; have to worry about circularities - (resolving-object new-instance - (setting (slot-value slot-name) (restore-object stream))))) + (resolving-object (obj new-instance) + (setting (slot-value obj slot-name) (restore-object stream))))) new-instance))

@@ -104,8 +104,8 @@ (let ((slot-name (restore-object stream))) ;; slot-names are always symbols so we don't ;; have to worry about circularities - (resolving-object new-instance - (setting (slot-value slot-name) (restore-object stream))))) + (resolving-object (obj new-instance) + (setting (slot-value obj slot-name) (restore-object stream))))) new-instance))