Mon Jun  1 00:22:05 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * fix define-takes-ownership return value
diff -rN -u old-smoke/src/smoke.lisp new-smoke/src/smoke.lisp
--- old-smoke/src/smoke.lisp	2014-10-01 19:32:11.000000000 +0200
+++ new-smoke/src/smoke.lisp	2014-10-01 19:32:11.000000000 +0200
@@ -189,6 +189,5 @@
 
 (defmacro define-takes-ownership (method lambda-list object)
   "Declares METHOD transfers the ownership of OBJECT to C++."
-  `(defmethod ,method ,lambda-list
-     (cancel-finalization ,object)
-     (remove-object ,object)))
+  `(defmethod ,method :before ,lambda-list
+     (disown-object ,object)))