diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp index 47d2bc397d22c08c86d7f05787e756952d72deff..03f53a89f4b617f3a314d50e9caa3f89f339b9b5 100644 --- a/uiop/run-program.lisp +++ b/uiop/run-program.lisp @@ -767,7 +767,7 @@ It returns a process-info plist with possible keys: (reduce/strcat (os-cond ((os-unix-p) `(,@(when redirections `("exec " ,@redirections " ; ")) ,@chdir ,normalized)) - ((os-windows-p) `(,@chdir @redirections ,normalized))))))) + ((os-windows-p) `(,@chdir ,@redirections ,normalized))))))) (defun %system (command &rest keys &key input output error-output directory &allow-other-keys)