Changeset 383

Timestamp:

Jan 24, 2004, 3:38:30 PM (21 years ago)

Author:

Gary Byers

Message:

UPDATE-SLOTS: assume that slotds are ordered, don't order them by location.

File:

• trunk/ccl/level-1/l1-clos.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-clos.lisp

@@ -282 +282 @@
       (extract-instance-and-class-slotds eslotds)
     (let* ((new-ordering
-            (let* ((v (make-array (the fixnum (length instance-slots)))))
+            (let* ((v (make-array (the fixnum (length instance-slots))))
+                   (i 0))
+              (declare (simple-vector v) (fixnum i))
               (dolist (e instance-slots v)
-                (setf (svref v
-                             (the fixnum
-                               (- (%slot-definition-location e) 1)))
-                      (%slot-definition-name e)))))
+                (setf (svref v i)
+                      (%slot-definition-name e))
+                (incf i))))
            (old-wrapper (%class-own-wrapper class))
            (old-ordering (if old-wrapper (%wrapper-instance-slots old-wrapper)))