Method: (MAP-RUCKSACK-ROOTS T STANDARD-RUCKSACK)

Source

(defmethod map-rucksack-roots (function (rucksack standard-rucksack))
  (loop for root-id in (slot-value rucksack 'roots)
        do (funcall function
                    (cache-get-object root-id (rucksack-cache rucksack)))))