diff options
Diffstat (limited to 'src/boot/strap')
-rw-r--r-- | src/boot/strap/tokens.clisp | 5 | ||||
-rw-r--r-- | src/boot/strap/translator.clisp | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index f17b0d63..0207ed51 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -5,6 +5,11 @@ (PROVIDE "tokens") +(EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) + (EXPORT '|$InteractiveMode|)) + +(DEFPARAMETER |$InteractiveMode| NIL) + (DEFUN |char| (|x|) (SCHAR (SYMBOL-NAME |x|) 0)) (DEFUN |shoeStartsId| (|x|) diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index a5a24e72..42a0740f 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -14,7 +14,8 @@ (PROVIDE "translator") (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) - (EXPORT '|evalBootFile|)) + (EXPORT '(|evalBootFile| |loadNativeModule| |loadSystemRuntimeCore| + |string2BootTree| |genImportDeclaration|))) (DEFPARAMETER |$currentModuleName| NIL) |