nicer error printing

1 files changed, 3 insertions, 1 deletions

diff --git a/posterbot.lisp b/posterbot.lisp
index 2d2c652..c354154 100644
--- a/posterbot.lisp
+++ b/posterbot.lisp
@@ -81,7 +81,9 @@ the downloaded file.  If there is an error thrown at any point, returns NIL."
               (file-stream  (drakma:http-request link :want-stream t)))
           (loop :for bytes = (read-sequence buffer file-stream)
              :while (plusp bytes) :do (write-sequence buffer out))))
-    (error () nil)))
+    (error (c) (progn
+                 (format *error-output* "While downloading image file at ~a.~%Encountered Error: ~a~%~%" link c)
+                 nil))))
 
 
 (defun filename-from-link (link)