Changeset 14235 for trunk/abcl/src/org/armedbear/lisp/run-program.lisp

Timestamp:

11/09/12 14:43:24 (8 years ago)

Author:

Mark Evenson

Message:

RUN-PROGRAM: refactor symbols and improve docstring.

File:

• trunk/abcl/src/org/armedbear/lisp/run-program.lisp (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/run-program.lisp

@@ -45 +45 @@
 ;;; processes.
 ;;; <http://download.oracle.com/javase/6/docs/api/java/lang/ProcessBuilder.html>.
-(defun run-program (program args &key environment (wait t) clear-env)
+(defun run-program (program args &key environment (wait t) clear-environment)
+  "Run PROGRAM with ARGS in with ENVIRONMENT variables.
+Possibly WAIT for subprocess to exit.
+
+Optionally CLEAR-ENVIRONMENT of the subprocess of any non specified values."
   ;;For documentation, see below.
-  (let ((pb (%make-process-builder program args)))
-    (let ((env-map (%process-builder-environment pb)))
-      (when clear-env
+  (let* ((program-namestring (namestring (pathname program)))
+
+         (process-builder (%make-process-builder program-namestring args)))
+    (let ((env-map (%process-builder-environment process-builder)))
+      (when clear-environment
         (%process-builder-env-clear env-map))            
       (when environment
@@ -56 +62 @@
                                     (princ-to-string (car entry))
                                     (princ-to-string (cdr entry))))))
-    (let ((process (make-process (%process-builder-start pb))))
+    (let ((process (make-process (%process-builder-start process-builder))))
       (when wait (process-wait process))
       process)))