From 4793bb9320cbe118fecff6cc3eea596cd7151e40 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Wed, 3 Aug 2005 16:53:16 +0000
Subject: [PATCH] When supressing compiler notes, also supress echo of shell
 commands

---
 src/cmp/cmpmain.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp
index d06e8af70..840ad40b6 100644
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -41,7 +41,7 @@ coprocessor).")
 (defvar *ld-bundle-flags* "")
 
 (defun safe-system (string)
-  (format *error-output* "~&;;; Invoking external command: ~A~%" string)
+  (cmpnote "~&;;; Invoking external command: ~A~%" string)
   (let ((result (si:system string)))
     (unless (zerop result)
       (cerror "Continues anyway."