commit 6627ba66d54439c777242d9811cc82efc06970c8 Solene Rapenne <solene@perso.pw> 2020-06-03 11:41:26 +0200 Stop discarding errors and display the issue in case of crash
clic.lisp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/clic.lisp b/clic.lisp index a11b4a1..a06839d 100644 --- a/clic.lisp +++ b/clic.lisp @@ -788,7 +788,7 @@ ;; re-enable SIGINT (Ctrl+C) disabled for loading clic (ext:set-signal-handler ext:+sigint+ 'quit) - (ignore-errors ;; lisp is magic + (handler-case (let ((destination (car (last (loop for element in (get-argv) collect (parse-url element)))))) @@ -811,7 +811,11 @@ ;; we continue to the shell if we are in a terminal (shell))) (format t "~a kB in.~%" (floor (/ *total-bandwidth-in* 1024.0)))) - (pipe-to-stdout destination))))) + (pipe-to-stdout destination))) + (t (error) + (progn + (format t "Something went wrong~%") + (print error))))) ;; we allow ecl to use a new kind of argument ;; not sure how it works but that works