From 6627ba66d54439c777242d9811cc82efc06970c8 Mon Sep 17 00:00:00 2001
From: Solene Rapenne <solene@perso.pw>
Date: Wed, 3 Jun 2020 11:41:26 +0200
Subject: [PATCH] Stop discarding errors and display the issue in case of crash

---
 clic.lisp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/clic.lisp b/clic.lisp
index a11b4a1..a06839d 100644
--- 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
-- 
2.45.2