[Openmcl-devel] Termination

[Ron Garret]

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