anchor.diff:  (defmethod rucksack-map-class ((rucksack standard-rucksack) class function
                                  &key (id-only nil) (include-subclasses t))
     (let ((visited-p (make-hash-table))
  -        (cache (cache rucksack)))
  +        (cache (rucksack-cache rucksack)))
       (labels ((map-instances (class)
                  (let ((index (rucksack-class-index rucksack class :errorp nil)))
                    (when index
  
positive.code:                               &key equal min max include-min include-max
                                (order :ascending)
                                (id-only nil) (include-subclasses t))
    (let ((cache (cache rucksack))
          (visited-p (make-hash-table)))
      (labels ((map-slot (class)
                 (let ((index (rucksack-slot-index rucksack class slot
  
negative.code: ;; $Id: rucksack.lisp,v 1.7 2006-05-28 11:22:54 alemmens Exp $
  
  (in-package :rucksack)
  
  