- #+(or allegro lispworks scl)
- (mapcar #'clos:slot-definition-name
- (clos:class-slots (find-class c-name)))
- #+sbcl-mop (mapcar #'sb-mop::slot-definition-name
- (sb-mop:class-slots (find-class c-name)))
- #+sbcl-pcl (mapcar #'sb-pcl::slot-definition-name
- (sb-pcl:class-slots (sb-pcl::find-class c-name))))
- #+cmu (mapcar #'pcl::slot-definition-name
- (pcl:class-slots (pcl:find-class c-name)))
- #+mcl
+ #+(or allegro cmu lispworks sbcl scl)
+ (mapcar #'kmr-mop:slot-definition-name
+ (kmr-mop:class-slots (kmr-mop:find-class c-name)))
+ #+(and mcl (not openmcl))