anchor.diff:      (debug-print-line "Range: " (freelist-metadata-start range) "-" (freelist-metadata-end range) ":" (if (freelist-metadata-free-p range) "free" "used"))))
   
   (defun initialize-store-freelist (n-store-blocks freelist-block)
  +  (when (not (boundp '*verbose-store*))
  +    (setf *verbose-store* nil))
     (setf *store-freelist-metadata-freelist* '()
           *store-freelist-recursive-metadata-allocation* nil
           *store-freelist-n-free-metadata* 0)
  
positive.code:        (when (not next-block)
           (return))
         (setf freelist-block next-block)))
    (dump-store-freelist)
    (debug-print-line *store-freelist-n-free-blocks* "/" *store-freelist-total-blocks* " store blocks free at boot"))
  
  (defun store-statistics ()
  
negative.code:           ((null range))
          (let ((start (freelist-metadata-start range))
                (n-blocks (- (freelist-metadata-end range) (freelist-metadata-start range))))
            (when *verbose-store*
              (debug-print-line "Unfree deferred range " (freelist-metadata-start range) "-" (freelist-metadata-end range)))
            (store-insert-range start n-blocks nil)))
        ;; Freelist is back to normal, safe to free the other blocks/pages now.
        (loop
  