[Openmcl-devel] Termination

Ron Garret ron at flownet.com
Thu Feb 4 16:45:52 UTC 2010


Doesn't seem to work for me:

? (defclass foo () ())
#<STANDARD-CLASS FOO>
? (defvar *dead-foo-count* 0) 
*DEAD-FOO-COUNT*
? (defmethod ccl::terminate ((f foo)) (incf *dead-foo-count*))
#<STANDARD-METHOD TERMINATE (FOO)>
? (dotimes (i 1000) (make-foo))
NIL
? (gc)
NIL
? *dead-foo-count*
0
? (dotimes (i 10000000) (make-foo))
NIL
? (gc)
NIL
? *dead-foo-count*
0

Am I doing something wrong or is this a bug?

rg




More information about the Openmcl-devel mailing list