Changeset 15645

Timestamp:

02/20/23 00:02:06 (7 months ago)

Author:

Mark Evenson

Message:

Further necessary triage for SYS:RUN-PROGRAM

Followup to
<​https://github.com/armedbear/abcl/commit/1113f4f7778611d2568ddee3478255b976191fbe>.

Hopefully still resolves <​https://github.com/armedbear/abcl/issues/506>

File:

• trunk/abcl/src/org/armedbear/lisp/run-program.lisp (modified) (1 diff)

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

@@ -191 +191 @@
                   (appendp (second output-redirection)))
               (threads:make-thread (lambda () (to-file error file :append appendp))))))
-        (when (and wait
-                   (not-java-6-p)
-                   (process-wait process))
-          process)))))
+        (when (and (not (find :java-6 *features*)) ;; TODO deprecate
+                   wait)
+          (process-wait process))
+          process))))
 
 (defconstant +inherit+