iStop discarding errors and display the issue in case of crash - clic - Clic is an command line interactive client for gopher written in Common LISP	Err	bitreich.org	70
hgit clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/	URL:git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/	bitreich.org	70
1Log	/scm/clic/log.gph	bitreich.org	70
1Files	/scm/clic/files.gph	bitreich.org	70
1Refs	/scm/clic/refs.gph	bitreich.org	70
1Tags	/scm/clic/tag	bitreich.org	70
1README	/scm/clic/file/README.md.gph	bitreich.org	70
1LICENSE	/scm/clic/file/LICENSE.gph	bitreich.org	70
i---	Err	bitreich.org	70
1commit 6627ba66d54439c777242d9811cc82efc06970c8	/scm/clic/commit/6627ba66d54439c777242d9811cc82efc06970c8.gph	bitreich.org	70
1parent e3f090118a9958ca3951826d2aab1e20e607872e	/scm/clic/commit/e3f090118a9958ca3951826d2aab1e20e607872e.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Wed,  3 Jun 2020 11:41:26 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
iStop discarding errors and display the issue in case of crash	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M clic.lisp                           |       8 ++++++--	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 6 insertions(+), 2 deletions(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/clic.lisp b/clic.lisp	/scm/clic/file/clic.lisp.gph	bitreich.org	70
i@@ -788,7 +788,7 @@	Err	bitreich.org	70
i   ;; re-enable SIGINT (Ctrl+C) disabled for loading clic	Err	bitreich.org	70
i   (ext:set-signal-handler ext:+sigint+ 'quit)	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-  (ignore-errors ;; lisp is magic	Err	bitreich.org	70
i+  (handler-case	Err	bitreich.org	70
i     (let ((destination (car (last	Err	bitreich.org	70
i                              (loop for element in (get-argv)	Err	bitreich.org	70
i                                 collect (parse-url element))))))	Err	bitreich.org	70
i@@ -811,7 +811,11 @@	Err	bitreich.org	70
i                   ;; we continue to the shell if we are in a terminal	Err	bitreich.org	70
i                   (shell)))	Err	bitreich.org	70
i             (format t "~a kB in.~%" (floor (/ *total-bandwidth-in* 1024.0))))	Err	bitreich.org	70
i-          (pipe-to-stdout destination)))))	Err	bitreich.org	70
i+          (pipe-to-stdout destination)))	Err	bitreich.org	70
i+    (t (error)	Err	bitreich.org	70
i+        (progn	Err	bitreich.org	70
i+          (format t "Something went wrong~%")	Err	bitreich.org	70
i+          (print error)))))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i ;; we allow ecl to use a new kind of argument	Err	bitreich.org	70
i ;; not sure how it works but that works	Err	bitreich.org	70
.