Changeset 12708

Timestamp:

Aug 27, 2009, 9:25:28 PM (15 years ago)

Author:

Gary Byers

Message:

In EXTRACT-INSTANCE-AND-CLASS-SLOTDS, ignore slot definitions with
allocation other than :CLASS or :INSTANCE (ticket:593).

File:

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

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

@@ -44 +44 @@
             (shared-slots))
     (dolist (s slotds (values (instance-slots) (shared-slots)))
-      (if (eq (%slot-definition-allocation s) :class)
-        (shared-slots s)
-        (instance-slots s)))))
+      (case (%slot-definition-allocation s)
+        (:instance (instance-slots s))
+        (:class (shared-slots s))))))