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

Source

(defmethod rucksack-add-class-index ((rucksack standard-rucksack) class
                                     &key (errorp nil))
  ;; Create and add a class index to the class index table.
  (unless (symbolp class)
    (setq class (class-name class)))
  (when (and errorp (btree-search (class-index-table rucksack) class
                                  :errorp nil :default-value nil))
    (simple-rucksack-error "Class index for ~S already exists in ~A."
                           class
                           rucksack))
  (let ((index (rucksack-make-class-index rucksack class)))
    (btree-insert (class-index-table rucksack) class index
                  :if-exists :overwrite)
    index))