Function: slot-names

Source

(defun slot-names (class) 
  (mapcar (fn (slot-def) (mop:slot-definition-name slot-def))
	  ;; class-slots instead of direct slots gives too much information in many cases.
	  (mop:class-slots (^class class))))