mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-26 06:22:33 -08:00
Code Issues Projects Releases Packages Wiki Activity

Beautify the message from SAFE-SYSTEM

Browse source
This commit is contained in:
jjgarcia 2003-12-15 08:52:03 +00:00
parent 6d1ec50d38
commit 5b7ac2b21b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpmain.lsp
View file

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