turbo_closure typo - gcl.git - GNU Common Lisp

GNU Common Lisp

diff options

turbo_closure typorelocatable-turbo

-rwxr-xr-x

1 files changed, 1 insertions, 1 deletions

diff --git a/gcl/o/cfun.c b/gcl/o/cfun.c
index 379af00f9..2639d34c1 100755
--- a/gcl/o/cfun.c
+++ b/gcl/o/cfun.c

@@ -336,7 +336,7 @@ turbo_closure(object fun)

{BEGIN_NO_INTERRUPT;

for (n = 0, l = fun->cc.cc_env; !endp(l); n++, l = l->c.c_cdr);

{

- block= AR_ALLOC(alloc_contblock,(1+n),object);

+ block= AR_ALLOC(alloc_relblock,(1+n),object);

*block=make_fixnum(n);

fun->cc.cc_turbo = block+1; /* equivalent to &block[1] */

for (n = 0, l = fun->cc.cc_env; !endp(l); n++, l = l->c.c_cdr)

generated by cgit v1.2.3 (git 2.39.1) at 2025年09月04日 14:33:27 +0000