Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 10e1120)
asdf: fix problem with uiop:run-program until we upgrade to next ASDF
authorDaniel Kochmański <daniel@turtleware.eu>
Fri, 11 Sep 2015 10:56:10 +0000 (12:56 +0200)
committerDaniel Kochmański <daniel@turtleware.eu>
Fri, 11 Sep 2015 10:56:10 +0000 (12:56 +0200)
Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
contrib/asdf/asdf.lisp patch | blob | blame | history

diff --git a/contrib/asdf/asdf.lisp b/contrib/asdf/asdf.lisp
index 9c292bb..2ba1bc5 100644 (file)
--- a/contrib/asdf/asdf.lisp
+++ b/contrib/asdf/asdf.lisp
@@ -5209,13 +5209,12 @@ It returns a process-info plist with possible keys:
             ;; 1- wait
             #+clozure (ccl::external-process-wait process)
             #+(or cmu scl) (ext:process-wait process)
-            #+(and (or clasp ecl) os-unix) (ext:external-process-wait process)
             #+sbcl (sb-ext:process-wait process)
             ;; 2- extract result
             #+allegro (sys:reap-os-subprocess :pid process :wait t)
             #+clozure (nth-value 1 (ccl:external-process-status process))
             #+(or cmu scl) (ext:process-exit-code process)
-            #+(or clasp ecl) (nth-value 1 (ext:external-process-wait process))
+            #+(or clasp ecl) (nth-value 1 (ext:external-process-wait process t))
             #+lispworks
             (if-let ((stream (or (getf process-info :input-stream)
                                  (getf process-info :output-stream)
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)