(defun ordered-class-slots (class)
#+mop-slot-order-reversed (reverse (class-slots class))
#-mop-slot-order-reversed (class-slots class))
(defun ordered-class-slots (class)
#+mop-slot-order-reversed (reverse (class-slots class))
#-mop-slot-order-reversed (class-slots class))