(defun class-slot-names (c-name)
"Given a CLASS-NAME, returns a list of the slots in the class."
#+(or allegro lispworks scl)
(mapcar #'clos:slot-definition-name
(clos:class-slots (find-class c-name)))
(defun class-slot-names (c-name)
"Given a CLASS-NAME, returns a list of the slots in the class."
#+(or allegro lispworks scl)
(mapcar #'clos:slot-definition-name
(clos:class-slots (find-class c-name)))
#+cmu (mapcar #'pcl::slot-definition-name
(pcl:class-slots (pcl:find-class s-name)))
#+scl (mapcar #'kernel:dsd-name
#+cmu (mapcar #'pcl::slot-definition-name
(pcl:class-slots (pcl:find-class s-name)))
#+scl (mapcar #'kernel:dsd-name