Code Info Collector: DEFINE-CONDITION

Source

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