[rucksack-devel] bug in rucsack-remove-class-index?

[Cyrus Harmon]

I think there's a bug in here:

(defmethod rucksack-remove-class-index ((rucksack standard-rucksack)  
class
                                         &key (errorp nil))
   (unless (symbolp class)
     (setq class (class-name class)))
   (handler-bind ((btree-deletion-error
                   ;; Translate a btree error to something that makes  
more sense
                   ;; in this context.
                   (lambda (error)
                     (declare (ignore error))
                     (simple-rucksack-error "Class index for ~S  
doesn't exist in ~A."
                                            class
                                            rucksack))))
     (btree-delete-key class
                       :if-does-not-exist (if errorp :error :ignore))))

I think the btree-delete-key at the end is wrong as that takes a  
btree and a key as required args, instead of class. Not sure what the  
fix is, but this looks bogus.

Cyrus