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/lisp-backend.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/lisp-backend.boot')
-rw-r--r-- | src/interp/lisp-backend.boot | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot index bb61333e..35230f86 100644 --- a/src/interp/lisp-backend.boot +++ b/src/interp/lisp-backend.boot @@ -806,6 +806,10 @@ COMPILE1 fun == compileLispDefinition(name,body) body +COMP370 x == + first x is [.,:.] => [COMPILE1 y for y in x] + [COMPILE1 x] + assembleCode x == if $PrettyPrint then PRETTYPRINT x if not $COMPILE then SAY '"No Compilation" |