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

When supressing compiler notes, also supress echo of shell commands

Browse source
This commit is contained in:
jjgarcia 2005-08-03 16:53:16 +00:00
parent fcefabf519
commit 4793bb9320
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

@ -41,7 +41,7 @@ coprocessor).")
(defvar *ld-bundle-flags* "")
(defun safe-system (string)
(format *error-output* "~&;;; Invoking external command: ~A~%" string)
(cmpnote "~&;;; Invoking external command: ~A~%" string)
(let ((result (si:system string)))
(unless (zerop result)
(cerror "Continues anyway."