anchor.diff:                   (parse-integer
                     (alexandria:read-file-into-string
                      (merge-pathnames cache-dir "level"))))
  +               (cache-id (cache-dir)
  +                 (parse-integer
  +                  (alexandria:read-file-into-string
  +                   (merge-pathnames cache-dir "id"))))
                  (cache-type (cache-dir)
                    (parse-cache-type
                     (alexandria:read-file-into-string
  
positive.code:                    :parent-bandwidth 64
                     :latency (* level level 5)))
                 (ensure-cache (cache-dir)
                   (let* ((id (parse-integer
                               (alexandria:read-file-into-string
                                (merge-pathnames cache-dir "id"))))
                          (entry (find id caches :key #'first)))
                     (if (not entry)
                         (let* ((level (cache-level cache-dir))
                                (cache (make-cache cache-dir level)))
                           (push (list id level cache) caches)
                           cache)
                         (third entry)))))
  
negative.code:                 (make-instance 'processor
                    :name (first (last (pathname-directory cpu-dir)))
                    :memory (ensure-cache
                             (find-if-not
                              (lambda (cache-dir)
                                (eq (cache-type cache-dir) :instruction))
                              (reverse cache-dirs))))))))))
  
  (defparameter *suffix-factors*
    (let ((table (make-hash-table :test #'equalp))
  