Fix a stupid memory leak.

darcs-hash:6917e11f840735f52ed29b5a6b08fbef825f5f7f

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"))))