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
 (HTM) 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
 (HTM) 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