[cl-store-cvs] CVS update: cl-store/lispworks/custom.lisp

[Sean Ross]

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