diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp index 61b2f49b9f26329f21e2967a67df42ea88ff8cea..9e72b754fbf889ed956a5f796a64141deffbfd63 100644 --- a/uiop/run-program.lisp +++ b/uiop/run-program.lisp @@ -362,7 +362,7 @@ for the implementation's underlying run-program function" ;; except in the most trivial cases where no quoting is needed. ;; Use at your own risk. #-(or allegro clisp clozure sbcl) - (parameter-error "~S doesn't support string commands on Windows: ~S" '%normalize-command command)) + (parameter-error "~S doesn't support string commands on Windows on this lisp: ~S" '%normalize-command command)) #+os-windows (list #+allegro (escape-windows-command command)