Function: RUCKSACK-INDEXED-SLOTS-FOR-CLASS

Documentation

Returns a list with the names of the indexed direct slots of CLASS.

Source

(defun rucksack-indexed-slots-for-class (rucksack class)
  "Returns a list with the names of the indexed direct slots of CLASS."
  (unless (symbolp class)
    (setq class (class-name class)))
  (let ((result '()))
    (rucksack-map-slot-indexes rucksack
                               (lambda (class-name slot-name slot-index)
                                 (declare (ignore slot-index))
                                 (when (eql class-name class)
                                   (push slot-name result))))
    result))