mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-15 09:20:23 -07:00
Code Issues Projects Releases Packages Wiki Activity

Complete previous fix for weak-pointer.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-04-03 15:07:12 +02:00
parent e5b22e51cc
commit 0e2fc917f7
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/alloc_2.d
View file

@ -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;
}