From 76479f76866c0a0e2b2cce689482262fecfa6fc8 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Fri, 9 May 2008 07:47:22 +0000
Subject: [PATCH] Honor the *COMPILE-VERBOSE* flag also in C:BUILDER

---
 src/cmp/cmpmain.lsp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp
index 844561805..b0b6ed5ad 100644
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -296,7 +296,10 @@ filesystem or in the database of ASDF modules."
 		(init-name nil)
 		(prologue-code "")
 		(epilogue-code (when (eq target :program) '(SI::TOP-LEVEL)))
-		#+:win32 (system :console))
+		#+:win32 (system :console)
+		&aux
+		(*suppress-compiler-notes* (or *suppress-compiler-notes* (not *compile-verbose*)))
+		(*suppress-compiler-warnings* (or *suppress-compiler-warnings* (not *compile-verbose*))))
   ;;
   ;; The epilogue-code can be either a string made of C code, or a
   ;; lisp form.  In the latter case we add some additional C code to