diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-07-03 00:01:49 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-07-03 00:01:49 +0000 |
| commit | 2a1884f21c2de5c43dab64c5c438230e4a29c612 (patch) | |
| tree | 3699f59eafdfce79468c1bf20070063387c26691 /src/interp/compiler.boot | |
| parent | b4c802eb28e2d66b93d0c888f0cd47fd13ffcf44 (diff) | |
| download | open-axiom-2a1884f21c2de5c43dab64c5c438230e4a29c612.tar.gz | |
(compAndDefine): Capture by name, not pointer.
(compQuietly): Likewise.
(compileQuietly): Likewise.
* interp/macros.lisp (PRINT-AND-EVAL-DEFUN): Move to sys-utility.boot.
(EVAL-DEFUN): Likewise.
(COMPILE-DEFUN): Likewise.
Diffstat (limited to 'src/interp/compiler.boot')
| -rw-r--r-- | src/interp/compiler.boot | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 35efe36a..2204a0f7 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1618,15 +1618,15 @@ compileFileQuietly path == COMPILE_-FILE path compAndDefine l == - _*COMP370_-APPLY_* := function PRINT_-AND_-EVAL_-DEFUN + _*COMP370_-APPLY_* := "PRINT-AND-EVAL-DEFUN" COMP l compQuietly fn == _*COMP370_-APPLY_* := $InteractiveMode => - $compileDontDefineFunctions => function COMPILE_-DEFUN - function EVAL_-DEFUN - function PRINT_-DEFUN + $compileDontDefineFunctions => "COMPILE-DEFUN" + "EVAL-DEFUN" + "PRINT-DEFUN" -- create a null outputstream if $InteractiveMode $OutputStream := $InteractiveMode => MAKE_-BROADCAST_-STREAM() @@ -1636,9 +1636,9 @@ compQuietly fn == compileQuietly fn == _*COMP370_-APPLY_* := $InteractiveMode => - $compileDontDefineFunctions => function COMPILE_-DEFUN - function EVAL_-DEFUN - function PRINT_-DEFUN + $compileDontDefineFunctions => "COMPILE-DEFUN" + "EVAL-DEFUN" + "PRINT-DEFUN" $OutputStream := $InteractiveMode => MAKE_-BROADCAST_-STREAM() MAKE_-SYNONYM_-STREAM "*STANDARD-OUTPUT*" |