(defun add-class-index (class-designator &key errorp) (rucksack-add-class-index (current-rucksack) class-designator :errorp errorp))