Code Info Collector: DEFGENERIC

Source

(defcode-info-collector cl:defgeneric (name arg-list &rest options)
  (multiple-value-bind (lambda-list env)
      (arnesi::walk-lambda-list arg-list nil nil :allow-specializers nil)
    (declare (ignore env))
    (make-instance 'defgeneric-descriptor
                   :name name
                   :lambda-list lambda-list
                   :docstring (second (assoc :documentation options)))))