summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--objcl.lisp6
1 files changed, 2 insertions, 4 deletions
diff --git a/objcl.lisp b/objcl.lisp
index e5b695d..609b88f 100644
--- a/objcl.lisp
+++ b/objcl.lisp
@@ -5,9 +5,6 @@
(use-foreign-library libobjcl)
-(defctype pointer-array :pointer
- "An array of void pointers.")
-
(deftype c-pointer ()
'(satisfies pointerp))
@@ -98,7 +95,8 @@
(let ((saved-pointer (pointer-to new-obj))
(saved-type (type-of new-obj)))
(flet ((finalizer ()
- (let ((temp (let ((*skip-finalization* t))
+ (let ((temp (let ((*skip-finalization* t)
+ (*skip-retaining* t))
(make-instance saved-type
:pointer saved-pointer))))
(objcl-invoke-class-method temp "release"))))