id,summary,reporter,owner,description,type,status,priority,milestone,component,version,resolution,keywords,cc
593,extract-instance-and-class-slotds does not respect slots with strange allocations,xxxxxx,gb,"Slots with overridden allocations (in my case mmap'd) are still (wrongly) assigned a slot location, because they are assumed to be :instance slots.

This is wrong, and here is a fix.
{{{
Index: l1-clos.lisp
===================================================================
--- l1-clos.lisp	(revision 12707)
+++ l1-clos.lisp	(working copy)
@@ -43,9 +43,11 @@
   (collect ((instance-slots)
 	    (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) 
+	(:class
+	   (shared-slots s))
+	(:instance
+	 (instance-slots s))))))
}}}",defect,closed,normal,Clozure CL 1.4,ANSI CL Compliance,trunk,fixed,,Kalyanov.Dmitry@…