diff options
Diffstat (limited to 'src/boot/strap/translator.clisp')
-rw-r--r-- | src/boot/strap/translator.clisp | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index a66191d3..ed424b1e 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -13,7 +13,8 @@ (PROVIDE "translator") -(EXPORT '|evalBootFile|) +(EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) + (EXPORT '|evalBootFile|)) (DEFPARAMETER |$currentModuleName| NIL) @@ -621,15 +622,15 @@ (|$InteractiveMode| |expr'|) (T (|shoeEVALANDFILEACTQ| |expr'|))))))) -(DEFUN |exportNames| (|ns|) - (COND - ((NULL |ns|) NIL) - (T (LIST (LIST 'EXPORT (LIST 'QUOTE |ns|)))))) - (DEFUN |inAllContexts| (|x|) (LIST 'EVAL-WHEN (LIST :COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) |x|)) +(DEFUN |exportNames| (|ns|) + (COND + ((NULL |ns|) NIL) + (T (LIST (|inAllContexts| (LIST 'EXPORT (LIST 'QUOTE |ns|))))))) + (DEFUN |translateToplevel| (|b| |export?|) (PROG (|lhs| |t| |ISTMP#2| |sig| |n| |ISTMP#1| |xs|) (DECLARE (SPECIAL |$activeNamespace| |$InteractiveMode| |