This fix makes response header accessible throught condition object

[svetlyak40wt]

Consider this example:

(defun handle-condition (cond)
  (format t "Response Headers Should Not Be Nil: ~A~%" (dex:response-headers cond))
  (dex:ignore-and-continue cond))


(handler-bind ((dex:http-request-failed #'handle-condition))
  (dex:get "http://httpbin.org/status/418" :verbose 1))

It will print "Response Headers Should Not Be Nil: NIL" without this fix and will output response headers when patch applied.

Don't know how to run tests, probably this should be added to the testsuite.

[coveralls]

Coverage decreased (-0.2%) to 75.053% when pulling 559e43d on svetlyak40wt:patch-1 into e5b756d on fukamachi:master.

[fukamachi]

Thank you for pointing out!

[svetlyak40wt]

By the way, I found how to run tests and added few lines:

diff --git a/t/dexador.lisp b/t/dexador.lisp
index c060849..f23e0bd 100644
--- a/t/dexador.lisp
+++ b/t/dexador.lisp
@@ -184,10 +184,21 @@ body: \"Within a couple weeks of learning Lisp I found programming in any other
         (fail "Must raise an error DEX:HTTP-REQUEST-FAILED"))
     (dex:http-request-failed (e)
       (pass "Raise DEX:HTTP-REQUEST-FAILED error")
+      (isnt (dex:response-headers e) nil
+          "response headers is some hash")
       (is (dex:response-status e) 500
           "response status is 500")
       (is (dex:response-body e) "Internal Server Error"
           "response body is \"Internal Server Error\"")))
+
+  (handler-bind ((dex:http-request-failed
+                  (lambda (cond)
+                    (isnt (dex:response-headers cond) nil
+                          "condition's headers is not nil"))))
+    (progn
+        (dex:get (localhost))
+        (fail "Must raise an error DEX:HTTP-REQUEST-FAILED with some headers")))
+
   (handler-case
       (progn
         (dex:get (localhost "/404"))

But even with the patch, they fail with this strange error:

HTTP request failed
    ✓ Raise DEX:HTTP-REQUEST-FAILED error
    ✓ response headers is some hash
    ✓ response status is 500
    ✓ response body is "Internal Server Error"
    ✓ condition's headers is not nil
    × Aborted due to an error in subtest "HTTP request failed"
      Raised an error An HTTP request to "http://localhost:50476/" returned 500 internal server error.

Internal Server Error (expected: :NON-ERROR)

The line "condition's headers is not nil" has good checkmark. Why there is an error after it?