Method: (RUCKSACK-CLASS-INDEX STANDARD-RUCKSACK T)

Source

(defmethod rucksack-class-index ((rucksack standard-rucksack) class
                                 &key (errorp nil))
  (unless (symbolp class)
    (setq class (class-name class)))
  (handler-bind ((btree-search-error
                  ;; Translate a btree error to something that makes more sense
                  ;; in this context.
                  (lambda (error)
                    (declare (ignore error))
                    (simple-rucksack-error "Can't find class index for ~S in ~A."
                                           class
                                           rucksack))))
    (btree-search (class-index-table rucksack) class
                  :errorp errorp
                  :default-value nil)))