(defmethod expand-heap :after ((heap mark-and-sweep-heap) block-size)
;; If the GC is ready but the heap must be expanded because the free
;; list manager can't find a free block, we know that we should start
;; collecting garbage.
(when (eql (state heap) :ready)
(setf (state heap) :starting)))