src/object-map.lisp
Sun Jan 10 09:49:36 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Support modular smoke & cleanup.
--- old-smoke/src/object-map.lisp 2014-10-30 08:09:29.000000000 +0100
+++ new-smoke/src/object-map.lisp 2014-10-30 08:09:29.000000000 +0100
@@ -38,8 +38,9 @@
transferred to C++.")
(eval-on-save ()
+ (tg:gc :full t) ;; Try to get all #'smoke::make-auto-pointer
(loop for object being the hash-value of *object-map* do
- (warn "life object ~A" object)
+ (warn "life object ~A ~A" object (pointer object))
(remove-finalizer object)
(setf (slot-value object 'pointer) (null-pointer)))
(clrhash *object-map*))