Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 39b953e)
run-program: error stream default value is :output
authorDaniel Kochmański <daniel@turtleware.eu>
Sun, 9 Aug 2015 09:10:40 +0000 (11:10 +0200)
committerDaniel Kochmański <daniel@turtleware.eu>
Sun, 9 Aug 2015 09:10:51 +0000 (11:10 +0200)
Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
src/c/unixsys.d patch | blob | blame | history

diff --git a/src/c/unixsys.d b/src/c/unixsys.d
index 7e43340..f73baca 100644 (file)
--- a/src/c/unixsys.d
+++ b/src/c/unixsys.d
@@ -506,7 +506,7 @@ create_descriptor(cl_object stream, cl_object direction,
 #endif
 
 @(defun ext::run-program (command argv &key (input @':stream') (output @':stream')
-                          (error @'t') (wait @'t') (environ ECL_NIL)
+                          (error @':output') (wait @'t') (environ ECL_NIL)
                           (if_output_exists @':supersede'))
         int parent_write = 0, parent_read = 0, parent_error = 0;
         int child_pid;
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)