Method: (FREE-LIST-INFO T FREE-LIST-HEAP)

Source

(defmethod free-list-info (size-class (heap free-list-heap))
  (let ((start (free-list-pointer size-class))
        (block-size (size-class-block-size size-class heap)))
    #+debug (format t "~%~%Block size ~D: " block-size)
    (loop for block = start then (block-header block heap)
          #+debug do #+debug (format t "#x~X " block)
          until (eql (block-header block heap) start)
          sum 1 into nr-blocks
          sum block-size into total-block-size
          finally (return (list :block-size block-size
                                :nr-free-blocks nr-blocks
                                :nr-free-octets total-block-size)))))