[Lispweb] Proposed patch to Araneida to log just a little bit more info'

[Alan Shields]

While working with Araneida and doing some requests, I kept getting
stray 404 errors that I couldn't quite figure out. Part of why I
couldn't figure them out was because the URL wasn't being logged.

This patch includes the URL requested with all errors logged.

I hope it's useful.

Thanks,
Alan

--- ../araneida_0.9.bak/request.lisp	2005-03-03 19:08:17.000000000 -0600
+++ request.lisp	2005-04-13 14:35:17.083880406 -0500
@@ -189,8 +189,8 @@
 		   (apply #'format nil extra-stuff)))
         (error-text (cdr (assoc error-code *http-error-codes*))))
     (when *log-stream*
-      (format *log-stream* "~&Logged error: ~A ~A ~A~%" 
-	      error-code error-text extra))
+      (format *log-stream* "~&Logged error: ~A ~A ~A while processing URL <~A>~%" 
+	      error-code error-text extra (urlstring (request-url request))))
     (request-send-headers request
                           :response-code error-code :response-text error-text)
     (format stream