Function: SLOT-DEF-AND-NAME

Documentation

Returns (1) slot definition and (2) slot name.

Source

(defun slot-def-and-name (class slot-name-or-def)
  "Returns (1) slot definition and (2) slot name."
  #+lispworks(values (find slot-name-or-def (class-slots class)
                           :key #'slot-definition-name)
                     slot-name-or-def)
  #-lispworks(values slot-name-or-def
                     (slot-definition-name slot-name-or-def)))