src/object-map.lisp
Fri Jul 3 11:50:05 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Fix methods and method-maps bounds.
--- old-smoke/src/object-map.lisp 2014-10-30 08:13:26.000000000 +0100
+++ new-smoke/src/object-map.lisp 2014-10-30 08:13:26.000000000 +0100
@@ -40,7 +40,7 @@
(eval-on-save ()
(loop for object being the hash-value of *object-map* do
- (warn "life object ~A" (class-of object))
+ (warn "life object ~A" object)
(remove-finalizer object)
(setf (slot-value object 'pointer) (null-pointer)))
(clrhash *object-map*))