- ;; allegro and lispworks reverse class-slots compared to the defclass form
- ;; subobject is already reversed from the dolist/push loop, so re-reverse on non-allegro/lispworks
- #+(or lispworks allegro) subobjects
- #-(or lispworks allegro) (nreverse subobjects)
+ ;; allegro and lispworks don't reverse class-slots compared to the defclass form
+ ;; subobject is already reversed from the dolist/push loop, so re-reverse on cmu/sbcl/scl
+ #+(or cmu sbcl scl) subobjects
+ #-(or cmu sbcl scl) (nreverse subobjects)