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