gcl-devel
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]