Remove spurious newline character

This commit is contained in:
jgarcia 2008-02-03 11:28:48 +00:00
parent 2e4001bf6f
commit 6faa88cb16

View file

@ -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."