- (slots (if sd (ccl::sd-slots sd))))
- (mapcar #'car (if (symbolp (caar slots)) slots (cdr slots))))
- #-(or allegro lispworks cmu sbcl scl mcl)
+ (slots (if sd (ccl::sd-slots sd))))
+ (mapcar #'car (if (symbolp (caar slots)) slots (cdr slots))))
+ #-(or allegro lispworks cmu sbcl scl (and mcl (not openmcl)))
+ (declare (ignore s-name))
+ #-(or allegro lispworks cmu sbcl scl (and mcl (not openmcl)))