Loading uiop/run-program.lisp +1 −3 Original line number Diff line number Diff line Loading @@ -738,8 +738,6 @@ 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 Loading @@ -760,7 +758,7 @@ It returns a process-info plist with possible keys: (reduce/strcat (append before (redirect in " <") (redirect out " >") (redirect err " 2>") (when (and directory (os-unix-p)) (when (and directory (os-unix-p)) ;; NB: unless on Unix, %system uses with-current-directory `(" ; cd " ,(escape-shell-token (native-namestring directory)))) after))))) Loading Loading
uiop/run-program.lisp +1 −3 Original line number Diff line number Diff line Loading @@ -738,8 +738,6 @@ 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 Loading @@ -760,7 +758,7 @@ It returns a process-info plist with possible keys: (reduce/strcat (append before (redirect in " <") (redirect out " >") (redirect err " 2>") (when (and directory (os-unix-p)) (when (and directory (os-unix-p)) ;; NB: unless on Unix, %system uses with-current-directory `(" ; cd " ,(escape-shell-token (native-namestring directory)))) after))))) Loading