diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp index 9a94fadabc0d0d1b71fa7ed0ccaf81fe1810c3ca..8c80ca942e53c366840ac77611f9000e4a334c0f 100644 --- a/uiop/run-program.lisp +++ b/uiop/run-program.lisp @@ -671,7 +671,9 @@ It returns a process-info plist with possible keys: &key input output error-output ignore-error-status &allow-other-keys) ;; helper for RUN-PROGRAM when using %run-program #+(or abcl cormanlisp gcl (and lispworks os-windows) mcl mkcl xcl) - (error "Not implemented on this platform") + (progn + command keys input output error-output ignore-error-status ;; ignore + (error "Not implemented on this platform")) (assert (not (member :stream (list input output error-output)))) (let* ((active-input-p (%active-io-specifier-p input)) (active-output-p (%active-io-specifier-p output))