Commit 824c0f0d authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Emit an error in an unhandled corner case of run-program.

parent 8eec6938
Loading
Loading
Loading
Loading
+2 −0
Original line number Diff line number Diff line
@@ -738,6 +738,8 @@ It returns a process-info plist with possible keys:
             (if (os-unix-p) (cons "exec" command) command)))))

  (defun %redirected-system-command (command in out err directory) ;; helper for %USE-SYSTEM
    (when (and directory (not (os-unix-p)))
      (error "Can't change directory in run-program on non-Unix systems with system() backend"))
    (flet ((redirect (spec operator)
             (let ((pathname
                     (typecase spec