~solene/clic

6627ba66d54439c777242d9811cc82efc06970c8 — Solene Rapenne 4 years ago e3f0901 master v1.1.5
Stop discarding errors and display the issue in case of crash
1 files changed, 6 insertions(+), 2 deletions(-)

M clic.lisp
M clic.lisp => clic.lisp +6 -2
@@ 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