axiom-developer
[Top][All Lists]
Advanced

[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




reply via email to

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