From 5b7ac2b21bf9ba2bb40590f5e238409c6a8d5b6a Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 15 Dec 2003 08:52:03 +0000
Subject: [PATCH] Beautify the message from SAFE-SYSTEM

---
 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 e49c9f8e1..abcbff3e1 100644
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -42,7 +42,7 @@ coprocessor).")
 (defvar *ld-bundle-flags* "")
 
 (defun safe-system (string)
-  (print string)
+  (format *error-output* "~&;;; Invoking external command: ~A~%" string)
   (let ((result (si:system string)))
     (unless (zerop result)
       (cerror "Continues anyway."