Commit 6e21a9f9 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau Committed by Robert P. Goldman
Browse files

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

parent 23bacd47
......@@ -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
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment