mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2025-12-31 14:50:50 -08:00
Remove spurious newline character
This commit is contained in:
parent
2e4001bf6f
commit
6faa88cb16
1 changed files with 1 additions and 1 deletions
|
|
@ -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."
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue