- (kernel:dd-slots
- (kernel:layout-info
- (kernel:class-layout (find-class s-name)))))
- #+mcl (let* ((sd (gethash s-name ccl::%defstructs%))
- (slots (if sd (ccl::sd-slots sd))))
- (mapcar #'car (if (symbolp (caar slots)) slots (cdr slots))))
- #-(or allegro lispworks cmu sbcl scl mcl)
+ (kernel:dd-slots
+ (kernel:layout-info
+ (kernel:class-layout (find-class s-name)))))
+ #+(and mcl (not openmcl))
+ (let* ((sd (gethash s-name ccl::%defstructs%))
+ (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)))