From bea585df2a7ba9da57d29ef3fff6b6a3d4d8bb97 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sat, 4 Aug 2007 13:40:50 +0200
Subject: Fix a stupid memory leak.

darcs-hash:6917e11f840735f52ed29b5a6b08fbef825f5f7f
---
 objcl.lisp | 6 ++----
 1 file 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"))))
-- 
cgit v1.2.3