diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-20 21:53:30 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-20 21:53:30 +0000 |
| commit | c707a9c63ad286a9492be7f2145d8b688ddf61d5 (patch) | |
| tree | f8d5e214af517558b79c2e845aae2108a24fda4d /src/interp/slam.boot | |
| parent | 47a2fd61be7c98af4d53f8b885a0038a72fcd4e6 (diff) | |
| download | open-axiom-c707a9c63ad286a9492be7f2145d8b688ddf61d5.tar.gz | |
* interp/parsing.lisp (CONVERSATION): Remove.
(CONVERSATION1): Likewise.
(MAKE-PARSE-FUNCTION): Likewise.
(MAKE-PARSE-FUNCTION1): Likewise.
(MAKE-PARSE-FUNC-FLATTEN): Likewise.
(MAKE-PARSE-FUNC-FLATTEN-1): Likewise.
(TRANSPGVAR): Likewise.
(GETRULEFUNLISTS): Likewise.
(REDUCTION-PRINT): Likewise.
(TRACEMETA): Likewise.
(TRMETA): Likewise.
(TRMETA1): Likewise.
(/MDEF): Likewise.
* interp/macros.lisp (EXPAND-TABS): Likewise.
* interp/spad.lisp (READ-SPAD): Likewise.
(READ-INPUT): Likewise.
(READ-SPAD0): Likewise.
(READ-SPAD1): Likewise.
(READ-SPAD-1): Likewise.
(New,ENTRY,1): Likewise.
(New,ENTRY,2): Likewise.
* interp/bootlex.lisp (SPAD_SYNTAX_ERROR): Move to debug.lisp.
(SPAD_LONG_ERROR): Likewise.
(SPAD_SHORT_ERROR): Likewise.
(SPAD_ERROR_LOC): Likewise.
* interp/c-util.boot (COMP370): Move to lisp-backend.boot.
(compQuietly): Move to slam.boot.
Diffstat (limited to 'src/interp/slam.boot')
| -rw-r--r-- | src/interp/slam.boot | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/src/interp/slam.boot b/src/interp/slam.boot index c48b0cbf..5a74a0cb 100644 --- a/src/interp/slam.boot +++ b/src/interp/slam.boot @@ -406,7 +406,16 @@ compileInteractive fn == result := compQuietly optfn if $InteractiveMode then stopTimingProcess 'compilation result - + +++ Subroutine of compileInteractive. +compQuietly fn == + _*COMP370_-APPLY_* := + $InteractiveMode => + $compileDontDefineFunctions => "COMPILE-DEFUN" + "EVAL-DEFUN" + "PRINT-DEFUN" + quietlyIfInteractive backendCompile fn + clearAllSlams x == fn(x,nil) where fn(thoseToClear,thoseCleared) == |