diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-03 07:51:43 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-03 07:51:43 +0000 |
| commit | 9396ac962517465319521fb9affdd456791826d5 (patch) | |
| tree | 31e6e93baf58aa6441fa7e4cf8d2df76c0f9f14c /src/boot/initial-env.lisp | |
| parent | 6e817dbdfdeb7f33ace01d37ff4a22dc6191cabc (diff) | |
| download | open-axiom-9396ac962517465319521fb9affdd456791826d5.tar.gz | |
more cleanup
Diffstat (limited to 'src/boot/initial-env.lisp')
| -rw-r--r-- | src/boot/initial-env.lisp | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/src/boot/initial-env.lisp b/src/boot/initial-env.lisp index b9a76109..40ca50cc 100644 --- a/src/boot/initial-env.lisp +++ b/src/boot/initial-env.lisp @@ -46,11 +46,7 @@ (:use "AxiomCore") #+:common-lisp (:use "COMMON-LISP") #-:common-lisp (:use "LISP") - (:export "loadNativeModule" - "loadSystemRuntimeCore" - "$InteractiveMode" - "string2BootTree" - "genImportDeclaration")) + ) (in-package "BOOTTRAN") @@ -63,17 +59,10 @@ #+:ieee-floating-point (defparameter $ieee t) #-:ieee-floating-point (defparameter $ieee nil) -;; when true indicate that that the Boot translator -;; is called interactively. -(defparameter |$InteractiveMode| nil) - (defvar *lisp-bin-filetype* "o") (defvar *lisp-source-filetype* "lisp") -(defun |shoeInputFile| (filespec ) - (open filespec :direction :input :if-does-not-exist nil)) - (defmacro |shoeOpenInputFile| (stream fn prog) `(with-open-file (,stream ,fn :direction :input |