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-09-28 09:40:50.000000000 +0200
+++ new-smoke/src/smoke.lisp 2014-09-28 09:40:50.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)))