Method: (FREE-LIST-EMPTY-P T FREE-LIST-HEAP)

Source

(defmethod free-list-empty-p (size-class (heap free-list-heap))
  ;; A free list is empty when the start points to itself.
  (let ((start (free-list-start heap size-class)))
    (= start (free-list-pointer size-class))))