src/object-map.lisp
Sun Aug 30 16:12:44 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Allow deriving from multiple C++ classes.
--- old-smoke/src/object-map.lisp 2014-10-30 08:11:07.000000000 +0100
+++ new-smoke/src/object-map.lisp 2014-10-30 08:11:07.000000000 +0100
@@ -92,6 +92,8 @@
(class (class-of object)))
#'(lambda ()
(declare (optimize (speed 3)))
+ ;; #'remove-object is called in the destructed callback. This
+ ;; happens even for objects without an virtual destructor.
(handler-case (delete-pointer pointer class)
(error (condition)
(report-finalize-error condition 't (name class) pointer))))))