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/c-util.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/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index b0ecbb73..a24b4539 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1759,20 +1759,6 @@ compAndDefine l == $compileDontDefineFunctions := true -++ Subroutine of compileInteractive. -compQuietly fn == - _*COMP370_-APPLY_* := - $InteractiveMode => - $compileDontDefineFunctions => "COMPILE-DEFUN" - "EVAL-DEFUN" - "PRINT-DEFUN" - quietlyIfInteractive backendCompile fn - -COMP370 x == - first x is [.,:.] => [COMPILE1 y for y in x] - [COMPILE1 x] - - --% --% Compile Time operation lookup for the benefit of domain inlining. --% |