From 824c0f0d13ea219094b82d7726c7c8080340210a Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Sat, 22 Feb 2014 02:54:45 -0500
Subject: [PATCH] Emit an error in an unhandled corner case of run-program.

---
 uiop/run-program.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp
index 7a19e53f..417ee204 100644
--- a/uiop/run-program.lisp
+++ b/uiop/run-program.lisp
@@ -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
-- 
GitLab