[Axiom-developer] [build-improvements] support system-install GCL

[Gabriel Dos Reis]

I've long errouneously blamed GCL.  Detailed investigation turned out
top be an Axiom doing.  Fixed thusly.

Tested on:

  * i686-pc-linux with GCL and noweb installed
  * x86_64-suse-linux without GCL and with noweb installed

Bill, if you can give it a try on mac, that would be very appreciated.

-- Gaby

src/interp/

2006-09-11  Gabriel Dos Reis  <address@hidden>

        * Makefile.pamphlet (${SAVESYS}): Don't set
        si::*system-directory*. 
        * Makefile.in: Regenerate.
        
*** src/interp/Makefile.pamphlet        (revision 15833)
--- src/interp/Makefile.pamphlet        (local)
*************** GCL likes to tell you when it has replac
*** 840,845 ****
--- 840,852 ----
  tail-recursive call. This happens when the last form in a function
  is a call to the same function. In general, we don't care so we set
  compiler::*suppress-compiler-notes* to true in order to reduce the noise.
+ 
+ Notice that when Axiom uses GCL as the Lisp platform, it is usually not 
+ a good idea to mess with GCL's internal variables.  In particular, GCL
+ has its own idea about what to do with [[si::*system-directory*]], which 
+ should not be set here just because we happen to save an GCL-based image.
+ Doing otherwise causes havoc.
+ 
  <<savesys>>=
  ${SAVESYS}:   ${DEPSYS} ${OBJS} ${OUT}/bookvol5.${O} ${OUT}/util.${O} \
                  ${OUT}/nocompil.${LISP} ${OUT}/sys-pkg.${LISP} \
*************** ${SAVESYS}:     ${DEPSYS} ${OBJS} ${OUT}/boo
*** 883,889 ****
  #     @ 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} )
        @ echo 6 ${SAVESYS} created
--- 890,896 ----
  #     @ 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} )
        @ echo 6 ${SAVESYS} created