)
(defun ordered-class-slots (class)
- #+(or cmu sbcl) (class-slots class)
- #-(or cmu sbcl) (reverse (class-slots class)))
+ #+(or cmu18 sbcl) (class-slots class)
+ #-(or cmu18 sbcl) (reverse (class-slots class)))
;; Lispworks has symbol for slot rather than the slot instance
(defun %svuc-slot-name (slot)