[Bug-openmcl] make-load-form-saving-slots bug (with patch)

[bryan o'connor]

#'extract-instance-effective-slotds expects a class
and #'make-load-form-saving-slots is instead passing
the #'%class-slots.

i actually figured out how to fix this one.  ;)

			...bryan


-------------- next part --------------
Index: level-1/l1-clos-boot.lisp
===================================================================
RCS file: /usr/local/tmpcvs/ccl-0.14/ccl/level-1/l1-clos-boot.lisp,v
retrieving revision 1.4
diff -c -r1.4 l1-clos-boot.lisp
*** level-1/l1-clos-boot.lisp	20 Dec 2003 12:35:59 -0000	1.4
--- level-1/l1-clos-boot.lisp	7 Jan 2004 09:46:56 -0000
***************
*** 3068,3074 ****
                  (nreverse res))
                (mapcar '%slot-definition-name
                        (extract-instance-effective-slotds 
!                        (%class-slots (class-of object)))))))
      (values
       (let* ((form (gethash class-name *make-load-form-saving-slots-hash*)))
         (or (and (consp form)
--- 3068,3074 ----
                  (nreverse res))
                (mapcar '%slot-definition-name
                        (extract-instance-effective-slotds 
!                        (class-of object))))))
      (values
       (let* ((form (gethash class-name *make-load-form-saving-slots-hash*)))
         (or (and (consp form)
-------------- next part --------------