Mon Jun 1 00:22:05 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* fix define-takes-ownership return value
hunk ./src/smoke.lisp 192
- `(defmethod ,method ,lambda-list
- (cancel-finalization ,object)
- (remove-object ,object)))
+ `(defmethod ,method :before ,lambda-list
+ (disown-object ,object)))