[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Gcl-devel] Re: intermittent GCL 2.7.0 problem?
From: |
Camm Maguire |
Subject: |
[Gcl-devel] Re: intermittent GCL 2.7.0 problem? |
Date: |
29 Mar 2006 18:45:37 -0500 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.2 |
Greetings!
Quick question -- this isn't right, is it?
(defvar m)
M
>(disassemble '(lambda (m) (let ((m m)) m)) )
Compiling /tmp/gazonk_7903_0.lsp.
End of Pass 1.
End of Pass 2.
OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3
Finished compiling /tmp/gazonk_7903_0.lsp.
#include "gazonk_7903_0.h"
void init_code(){do_init(VV);}
/* function definition for CMP-ANON */
static void L1()
{register object *base=vs_base;
register object *sup=base+VM1; VC1
vs_check;
bds_check;
bds_bind(VV[0],base[0]);
vs_top=sup;
goto TTL;
TTL:;
bds_bind(VV[0],(VV[0]->s.s_dbind));
base[2]= (VV[0]->s.s_dbind);
vs_top=(vs_base=base+2)+1;
bds_unwind1;
bds_unwind1;
return;
}
#(
#(user::m (system::%init . #((system::mf (lisp::quote compiler::cmp-anon) 0)
(system::debug (lisp::quote compiler::cmp-anon) (lisp::quote (user::m
user::m))))))
)
static void L1();
#define VC1
#define VM1 3
static char * VVi[2]={
#define Cdata VV[1]
(char *)(L1)
};
#define VV ((object *)VVi)
Shouldn't both the lexical lambda and let binding shadow the defvar?
Take care,
Robert Boyer <address@hidden> writes:
> Thanks!
>
> Not desperate at all. Commit only as and when it's best, and thanks a
> million!
>
> Bob
>
>
>
--
Camm Maguire address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens." -- Baha'u'llah
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Gcl-devel] Re: intermittent GCL 2.7.0 problem?,
Camm Maguire <=