Method: (INITIALIZE-INSTANCE AFTER STANDARD-RUCKSACK)

Source

(defmethod initialize-instance :after ((rucksack standard-rucksack)
                                       &key
                                       (cache-class 'lazy-cache)
                                       (cache-args '())
                                       &allow-other-keys)
  ;; Open cache.
  (setf (slot-value rucksack 'cache)
        (apply #'open-cache (rucksack-directory rucksack)
               :class cache-class
               :rucksack rucksack
               cache-args))
  (load-roots rucksack))