Re: [Gcl-devel] Re: [Axiom-developer] Failure in Solaris 9 build, patch 23

[Camm Maguire]

Greetings! 

To get a backtrace below, cd into the $(OBJ)/$(SYS)/bin directory and execture 
from
the shell

./depsys (or path thereto)

>(gbc t)

optionally
>(si::use-fast-links nil) 

> (load "path_to_your_makeint.lisp_file")
Error: Lisp arglist exceeded
>>:bt

Take care,

"Kostas Oikonomou" <address@hidden> writes:

> Hi Camm,
> 
> I am trying to do what you suggested:
> 
> > Barring bfd, the next step is to extract the input being fed to
> > (interpsys?) in the error below, and run it by hand thus:
> >
> > .....interpsys
> > )lisp (si::use-fast-links nil)
> > )lisp (load "input file.lisp")
> >>> :bt  (backtrace)
> 
> I edited src/interp/Makefile as I show below.  Note that I set use-fast-links 
> to nil in the 2nd line.
> Now my question is: what do I put just before
> 
> load "${OUT}/makeint.lisp"
> 
> in the last line to produce the backtrace?
> 
> Thanks.
> 
>                                       Kostas
> 
> 
>       @ echo '${YEARWEEK}' >> ${OUT}/makeint.lisp
>       @ echo '(si::use-fast-links nil)' >> ${OUT}/makeint.lisp
>       @ echo '(build-interpsys (append (quote ($(patsubst %, "%", ${OBJS}))) 
> (quote ($(patsubst %, "%", ${ASCOMP}))) (quote ($(patsubst %, "%", 
> ${INOBJS})))) (quote ($(patsubst %, "%", ${OPOBJS}))) (quote ($(patsubst %, 
> "%", ${OCOBJS}))) (quote ($(patsubst %, "%", ${BROBJS}))) (quote ($(patsubst 
> %, "%", ${TRANOBJS}))) (quote ($(patsubst %, "%", ${NAGBROBJS}))) (quote 
> ($(patsubst %, "%", ${ASAUTO})))  "${SPAD}"  "${LSP}" "${SRC}" "${INT}" 
> "${OBJ}" "${MNT}" "${SYS}")' >> ${OUT}/makeint.lisp
>       @ echo '(in-package "SCRATCHPAD-COMPILER")' >> ${OUT}/makeint.lisp
> #     @ echo '(|shoeInternFile| "${MNT}/${SYS}/doc/msgs/co-eng.msgs")' >> 
> ${OUT}/makeint.lisp
>       @ echo '(boot::set-restart-hook)' >> ${OUT}/makeint.lisp
>       @ echo '(in-package "BOOT")' >> ${OUT}/makeint.lisp
>       @ echo '(load "${INT}/algebra/warm.data")' >> ${OUT}/makeint.lisp
>       @ echo '(|clearClams|)' >> ${OUT}/makeint.lisp
>       @ echo '(load "${OUT}/obey")' >> ${OUT}/makeint.lisp
> #     @ echo '#+:akcl (si::multiply-bignum-stack 10)' >> ${OUT}/makeint.lisp
>       @ echo '#+:akcl (setq compiler::*suppress-compiler-notes* t)' >> 
> ${OUT}/makeint.lisp
>       @ echo '#+:akcl (si::gbc-time 0)' >> ${OUT}/makeint.lisp
>       @ echo '#+:akcl (setq si::*system-directory* "${SPAD}/bin/")' >> 
> ${OUT}/makeint.lisp
>       @ (cd ${OBJ}/${SYS}/bin ; \
>         echo '(progn (gbc t) (load "${OUT}/makeint.lisp") (gbc t) 
> (user::spad-save "${SAVESYS}"))' | ${LISPSYS} )
> 
> 

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