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