Function: MAKE-SLOT-DESCRIPTOR

Source

(defun make-slot-descriptor (slot-spec)
  (destructuring-bind (name &rest options)
      (ensure-list slot-spec)
    (apply #'make-instance
	   'class-slot-descriptor
           :name name
           :docstring (getf options :documentation)
	   options)))