From 6faa88cb16cf2c710c60e49cc25964bcc14fa71c Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Sun, 3 Feb 2008 11:28:48 +0000
Subject: [PATCH] Remove spurious newline character

---
 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 7cf44a595..0e15192e7 100644
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -20,7 +20,7 @@
   `(progn ,@body))
 
 (defun safe-system (string)
-  (cmpnote "Invoking external command:~%;;; ~A~%" string)
+  (cmpnote "Invoking external command:~%;;; ~A" string)
   (let ((result (si:system string)))
     (unless (zerop result)
       (cerror "Continues anyway."