[Gcl-devel] Re: experiment

[Camm Maguire]

Greetings!

If you move the NULL_OR_ON_C_STACK checking code in main.c past the
call to Newinit();, what you have below works, at least to cursory
glance. 

Take care,

Robert Boyer <address@hidden> writes:

> Perhaps I should do something like the following in order to permit
> experiments with the possibly hair-brained idea of allowing stack conses to
> be marked on the stack by GCL's normal garbage collector.
> 
> Step 1.  Redefine NULL_OR_ON_C_STACK in notcomp.h as:
> 
> EXTER object sSAhons_startA;
> EXTER object sSAhons_endA;
> #define NULL_OR_ON_C_STACK(x) (((long)x) <= DBEGIN && \
>  !(         fix(sSAhons_startA->s.s_dbind) <= ((long)x) && \
>     ((long)x) <= fix(sSAhons_endA->s.s_dbind)))
> 
> Step 2.  Somewhere do:
> 
> object sSAhons_startA;
> object sSAhons_endA;
> 
> DEFVAR("*HONS-START*",sSAhons_startA,SI,make_fixnum(1),"");
> DEFVAR("*HONS-END*",sSAhons_endA,SI,make_fixnum(0),"");
> 
> 
> 
> Now, the natural place to put this looks like main.c or gbc.c, but when I do,
> wherever I seem to put it, I get the following error during the build.  This
> may be related to recent problems that Mike Thomas has also mentioned.  The
> real problem is how to sneak two more first class symbols into GCL before GCL
> is fully alive with its garbage collector, etc.
> 
>    echo " (in-package \"USER\")(system:save-system \"saved_pre_gcl\")" >>foo
>    /v/filer2/boyer/gcl/gcl-2.7.0/unixport/raw_pre_gcl 
> /v/filer2/boyer/gcl/gcl-2.7.0/unixport/ -libdir /u/boyer/gcl/gcl-2.7.0/ < foo
>    GCL (GNU Common Lisp)  April 1994  524288 pages
> 
>    Unrecoverable error: GBC is not enabled.
>    make[1]: *** [saved_pre_gcl] Error 134
> 
> Any suggestions?
> 
> Thanks,
> 
> Bob
> 
> P. S.  I'm referring to Mike's message:
> 
>   http://lists.gnu.org/archive/html/gcl-devel/2005-12/msg00040.html
> 
> 
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah