(defcode-info-collector cl:defclass (name supers slots &rest options)
(make-instance 'defclass-descriptor
:name name
:supers supers
:slots (mapcar #'make-slot-descriptor slots)
:docstring (second (assoc :documentation options))))