diff options
author | dos-reis <gdr@axiomatics.org> | 2008-03-25 04:07:32 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-03-25 04:07:32 +0000 |
commit | daed04c57b8ff8c3be53a5a183635c5687ab7bf6 (patch) | |
tree | be75f9d45dbdb2004578ad6b3c5c25b7e22803e6 /src/interp/boot-pkg.lisp | |
parent | 55893dcd3118428f046d5f539d80e9aa5345b885 (diff) | |
download | open-axiom-daed04c57b8ff8c3be53a5a183635c5687ab7bf6.tar.gz |
* interp/vmlisp.lisp (DEFINE-FUNCTION): Move boot-pkg.lisp.
(BPINAME): Tidy.
* interp/slam.boot (reportFunctionCompilation): Tidy.
* interp/daase.lisp: Don't use anachronistic SET.
* interp/debug.lisp: Likewise.
* interp/br-saturn.boot: Substitute GENSYM for GENTEMP.
* interp/fortcall.boot: Likewise.
* interp/ht-util.boot: Likewise.
* interp/pf2sex.boot: Likewise.
* interp/server.boot: Likewise.
* interp/buildom.boot (UnionEqual): Tidy.
(coerceUn2E): Likewise.
* interp/boot-pkg.lisp (define-function): Define here.
* interp/Makefile.pamphlet (diagnostics.$(FASLEXT)): Tidy.
(hash.$(FASLEXT)): Likewise.
(vmlisp.$(FASLEXT)): Likewise.
* interp/diagnostics.boot: Import "types".
* interp/hash.lisp: Import "types" instead of "vmlisp".
* interp/i-output.boot ($algebraOutput): Move to sys-globals.boot.
(ERROROUTSTREAM): Likewise.
(ERRORINSTREAM): Likewise.
* interp/macros.lisp ($algebraOutputStream): Don't set here.
* interp/patches.lisp ($algebraOutputStream): Don't set here.
($texOutputStream): Likewise.
($fortranOutputStream): Likewise.
($texOutputStream): Likewise.
($formulaOutputStream): Likewise.
Diffstat (limited to 'src/interp/boot-pkg.lisp')
-rw-r--r-- | src/interp/boot-pkg.lisp | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/interp/boot-pkg.lisp b/src/interp/boot-pkg.lisp index 1454ba18..95c14b2f 100644 --- a/src/interp/boot-pkg.lisp +++ b/src/interp/boot-pkg.lisp @@ -44,6 +44,13 @@ "loadSystemRuntimeCore")) (in-package "BOOT") + +(eval-when + #+:common-lisp (:compile-toplevel :load-toplevel :execute) + #-:common-lisp (compile load eval) + (defun define-function (f v) + (setf (symbol-function f) v))) + ;; Below are some missing functions. There here for lack of better ;; place (sys-funs.lisp?) |