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