From c707a9c63ad286a9492be7f2145d8b688ddf61d5 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 20 May 2012 21:53:30 +0000 Subject: * 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. --- src/interp/c-util.boot | 14 -------------- 1 file changed, 14 deletions(-) (limited to 'src/interp/c-util.boot') 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. --% -- cgit v1.2.3