 |
Stop discarding errors and display the issue in case of crash - clic - Clic is … |
 |
git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65… |
 |
Log |
|
Files |
|
Refs |
|
Tags |
|
README |
|
LICENSE |
|
--- |
|
commit 6627ba66d54439c777242d9811cc82efc06970c8 |
|
parent e3f090118a9958ca3951826d2aab1e20e607872e |
|
Author: Solene Rapenne <[email protected]> |
|
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(-) |
|
--- |
|
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 |
