Function: RUCKSACK-LIST-CLASS-INDEXES

Source

(defun rucksack-list-class-indexes (rucksack)
  (let ((result '()))
    (rucksack-map-class-indexes rucksack
                                (lambda (class-name index)
                                  (declare (ignore index))
                                  (push class-name result)))
    result))