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

add missing function

Browse source
This commit is contained in:
Daniel Kochmański 2017-06-23 17:56:32 +02:00
parent a993853acb
commit bfc58c219e
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/cmp/cmpos-run.lsp
View file

@ -18,6 +18,15 @@
#+(and cygwin (not ecl-min))
(ffi:clines "#include <stdlib.h>")
;;; 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