(defmethod finish-garbage-collection ((heap mark-and-sweep-heap)) ;; Make sure that the garbage collector is in the :ready state. (loop until (eql (state heap) :ready) do (collect-some-garbage heap (* 512 1024))))