[Openmcl-devel] termination question

[Cyrus Harmon]

Ok, so I'm trying to get termination to work and failing:

(progn
   (defclass moose () ())
   (defmethod terminate ((obj moose)) (print 'terminated!))
   (setf g (make-instance 'moose))
   (ccl:terminate-when-unreachable g)
   (makunbound 'g)
   (gc)
   (drain-termination-queue))

Shouldn't this run my little termination function?

I have on certain occasions gotten terminate to be called, but not 
consistently and not on this simple example. Am I missing something 
here?

Thanks,

Cyrus