From 433c8fe3852686ff53bc213ee1e0eecd7926ba8a Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Wed, 11 Oct 2006 15:15:16 +0000
Subject: [PATCH] Sometimes the compiler messages are useful in RT. Let the
 calling routine set the values of *compile-{verbose,print}*.

---
 contrib/rt/rt.lisp | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/contrib/rt/rt.lisp b/contrib/rt/rt.lisp
index 9eeebe560..83a06803b 100644
--- a/contrib/rt/rt.lisp
+++ b/contrib/rt/rt.lisp
@@ -162,15 +162,13 @@
 	      (flet ((%do
 		      ()
 		      (if *compile-tests*
-			  (let ((*compile-verbose* nil)
-				(*compile-print* nil))
-			    (multiple-value-list
-			     (funcall (compile
-				       nil
-				       `(lambda ()
-					 (declare
-					  (optimize ,@*optimization-settings*))
-					 ,(form entry))))))
+			  (multiple-value-list
+			   (funcall (compile
+				     nil
+				     `(lambda ()
+				       (declare
+					(optimize ,@*optimization-settings*))
+				       ,(form entry)))))
 			  (multiple-value-list
 			   (eval (form entry))))))
 		(if *catch-errors*