Home
Stop discarding errors and display the issue in case of crash - clic - Clic is an command line interactive client for gopher written in Common LISP HTML git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/ DIR Log DIR Files DIR Refs DIR Tags DIR README DIR LICENSE --- DIR commit 6627ba66d54439c777242d9811cc82efc06970c8 DIR parent e3f090118a9958ca3951826d2aab1e20e607872e HTML Author: Solene Rapenne <solene@perso.pw> Date: Wed, 3 Jun 2020 11:41:26 +0200 Stop discarding errors and display the issue in case of crash Diffstat: M clic.lisp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) --- DIR diff --git 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