Commit 6810657f authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

UIOP: make run-program/subprocess-error more human-readable 

When a process with a long command fails, it was far too indented to the right.
Remedy that at the price of making it somewhat uglier when the command is short.
parent cd5b0a21

uiop/run-program.lisp

+1 −1
Original line number Diff line number Diff line
@@ -327,7 +327,7 @@ Programmers are encouraged to define their own methods for this generic function 
     (command :initform nil :initarg :command :reader subprocess-error-command)

     (process :initform nil :initarg :process :reader subprocess-error-process))

    (:report (lambda (condition stream)

               (format stream "Subprocess~@[ ~S~]~@[ run with command ~S~] exited with error~@[ code ~D~]"

               (format stream "Subprocess ~@[~S~% ~]~@[with command ~S~% ~]exited with error~@[ code ~D~]"

                       (subprocess-error-process condition)

                       (subprocess-error-command condition)

                       (subprocess-error-code condition)))))