anchor.diff:        ((null range))
       (let ((start (freelist-metadata-start range))
             (n-blocks (- (freelist-metadata-end range) (freelist-metadata-start range))))
  -      (debug-print-line "Release deferred range " (freelist-metadata-start range) "-" (freelist-metadata-end range))
  +      (when *verbose-store*
  +        (debug-print-line "Release deferred range " (freelist-metadata-start range) "-" (freelist-metadata-end range)))
         (store-free start n-blocks))))
  
positive.code:     (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)
    (setf *store-freelist-metadata-freelist* '()
          *store-freelist-recursive-metadata-allocation* nil
          *store-freelist-n-free-metadata* 0)
  
negative.code:        (when (not next-block)
           (return))
         (setf freelist-block next-block)))
    (when *verbose-store*
      (dump-store-freelist))
    (debug-print-line *store-freelist-n-free-blocks* "/" *store-freelist-total-blocks* " store blocks free at boot"))
  
  (defun store-statistics ()
  