(defclass finalize-test () ())
(defun make-my-thread ()
(bt:make-thread (lambda () (sleep 300))))
(defmethod initialize-instance ((instance finalize-test) &key &allow-other-keys)
(format t "I am all done.~%"))))
(cl-user::gc :full t)
Calling GC repeatedly doesn't seem to do anything until I kill the thread or wait for it to end.