Commit 5b7ac2b2 authored by jjgarcia's avatar jjgarcia

Beautify the message from SAFE-SYSTEM

parent 6d1ec50d
......@@ -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."
Markdown is supported
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment