[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Axiom-developer] Debian/Stable Packages Built + Summary of issues
From: |
root |
Subject: |
Re: [Axiom-developer] Debian/Stable Packages Built + Summary of issues |
Date: |
Tue, 29 Mar 2005 03:57:53 -0500 |
Camm,
in src/interp/Makefile.pamphlet in the axiom--BSD branch the attached
two blocks of code exist. I need to move them out of the Makefile into
a lisp file, call them with reasonable parameters, make them load-time
conditional blocks based on GCL, write non-GCL versiosn and document why
they are needed and what they do. This is rather hard as I'm not even
sure what the problem is :-)
Other than these two blocks of code I've merged all of the other BSD
changes back into my local tree.
======================================================================
======================================================================
======================================================================
@ (cd ${OBJ}/${SYS}/bin ; \
echo '(progn \
(setq si::*collect-binary-modules* t) \
(load "${OUT}/makedep.lisp") \
(compiler::link \
(remove-duplicates si::*binary-modules* :test (quote
equal)) \
"$(DEPSYS)" \
(format nil "\
(setq si::*collect-binary-modules* t) \
(let ((si::*load-path* (cons ~S
si::*load-path*))\
(si::*load-types* ~S))\
(compiler::emit-fn t))\
(load \"$(OUT)/makedep.lisp\")\
(gbc t)\
(when si::*binary-modules* \
(error si::*binary-modules*))\
(setq si::collect-binary-modules* nil
si::*binary-modules* nil)\
(gbc t)\
(when (fboundp (quote si::sgc-on)) (si::sgc-on
t))\
(setq compiler::*default-system-p* t)\
" si::*system-directory* (quote (list ".lsp")))\
"" \
nil))' | $(LISPSYS))
======================================================================
======================================================================
======================================================================
echo '(progn \
(setq si::*collect-binary-modules* t)\
(setq x si::*system-directory*)\
(load "${OUT}/makeint.lisp")\
(setq si::*system-directory* x)\
(unintern (quote x))\
(compiler::link \
(remove-duplicates si::*binary-modules* :test
(quote equal))\
"$(SAVESYS)" \
(format nil "\
(let ((si::*load-path* (cons ~S
si::*load-path*))\
(si::*load-types* ~S))\
(compiler::emit-fn t))\
(setq si::*collect-binary-modules* t)\
(setq x si::*system-directory*)\
(load \"$(OUT)/makeint.lisp\")\
(setq si::*system-directory* x)\
(unintern (quote x))\
(when si::*binary-modules* \
(error si::*binary-modules*))\
(setq si::collect-binary-modules* nil
si::*binary-modules* nil)\
(gbc t)\
(when (fboundp (quote si::sgc-on))
(si::sgc-on t))\
(setq compiler::*default-system-p* t)\
" si::*system-directory* (quote (list ".lsp")))\
"$(OBJ)/$(SYS)/lib/sockio-c.o
$(OBJ)/$(SYS)/lib/cfuns-c.o $(OBJ)/$(SYS)/lib/libspad.a" \
nil))' | $(LISPSYS))
Tim