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