From bfc58c219e93cf9ca90465b812a57cb774b8befb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Fri, 23 Jun 2017 17:56:32 +0200 Subject: [PATCH] add missing function --- src/cmp/cmpos-run.lsp | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/src/cmp/cmpos-run.lsp b/src/cmp/cmpos-run.lsp index 013bdd481..b9adfd28e 100755 --- a/src/cmp/cmpos-run.lsp +++ b/src/cmp/cmpos-run.lsp @@ -18,6 +18,15 @@ #+(and cygwin (not ecl-min)) (ffi:clines "#include ") +;;; this is needed by compile.lsp.in +(defun safe-system (string) + (cmpnote "Invoking external command:~% ~A~%" string) + (let ((result (ext:system string))) + (unless (zerop result) + (cerror "Continues anyway." + "(SYSTEM ~S) returned non-zero value ~D" + string result)))) + (defun save-directory (forms) (let ((directory (probe-file (make-pathname :name nil :type nil