#+sbcl-mop (mapcar #'sb-mop::slot-definition-name
(sb-mop:class-slots (find-class c-name)))
#+sbcl-pcl (mapcar #'sb-pcl::slot-definition-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