From 0e2fc917f7eb2f5a93e0e833b60776655f9780b0 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Sat, 3 Apr 2010 15:07:12 +0200
Subject: [PATCH] Complete previous fix for weak-pointer.

---
 src/c/alloc_2.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/alloc_2.d b/src/c/alloc_2.d
index c3f4125a4..2c9d353d0 100755
--- a/src/c/alloc_2.d
+++ b/src/c/alloc_2.d
@@ -1330,7 +1330,7 @@ ecl_alloc_weak_pointer(cl_object o)
 	obj->value = o;
         if (!FIXNUMP(o) && !CHARACTERP(o) && !Null(o)) {
                 GC_general_register_disappearing_link(&(obj->value), (void*)o);
-                si_set_finalizer(pointer, Ct);
+                si_set_finalizer(obj, Ct);
         }
 	return (cl_object)obj;
 }