From c707a9c63ad286a9492be7f2145d8b688ddf61d5 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
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/slam.boot | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'src/interp/slam.boot')

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) ==
-- 
cgit v1.2.3