Method: (LOAD-BLOCK MARK-AND-SWEEP-HEAP T)

Source

(defmethod load-block ((heap mark-and-sweep-heap) block
                       &key (buffer (serialization-buffer heap))
                       (skip-header nil))
  ;; Loads the block at the specified position into the
  ;; serialization buffer.  If SKIP-HEADER is T, the block
  ;; header is not included.  Returns the buffer.
  (load-buffer buffer
               (heap-stream heap)
               (block-size block heap)
               :eof-error-p nil
               :file-position (if skip-header
                                  (+ block (block-header-size heap))
                                block)))