+10 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
+ * sql/kmr-mop.lisp: Explicitly check slot order and
+ store as a cl:*feature*
+
9 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
* Version 2.10.15
* LATEST-TEST-RESULTS: results with current version
(declare (ignore metaclass slot-name))
)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (defclass %slot-order-test-class ()
+ ((a)
+ (b)))
+ (finalize-inheritance (find-class '%slot-order-test-class))
+ (let ((slots (class-slots (find-class '%slot-order-test-class))))
+ (ecase (slot-definition-name (first slots))
+ (a)
+ (b (pushnew :mop-slot-order-reversed cl:*features*)))))
+
(defun ordered-class-slots (class)
- #+(or cmu18 sbcl) (class-slots class)
- #-(or cmu18 sbcl) (reverse (class-slots class)))
+ #+mop-slot-order-reversed (class-slots class)
+ #-mop-slot-order-reversed (reverse (class-slots class)))
;; Lispworks has symbol for slot rather than the slot instance
(defun %svuc-slot-name (slot)
(defun compute-class-precedence-list (class)
(class-precedence-list class))))
-#-(or sbcl cmu18)
+#-mop-slot-order-reversed
(defmethod compute-slots ((class standard-db-class))
"Need to sort order of class slots so they are the same across
implementations."