[Openmcl-devel] termination question

Cyrus Harmon ch-openmcl at bobobeach.com
Sat Sep 11 10:13:01 PDT 2004

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

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

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 



More information about the Openmcl-devel mailing list