[more request headers:
dan**20011230205413
 more request headers:
  +				 location
  +				 pragma
 plus Expires: can be a string if you prefer, plus Set-cookies now
 accepts a list of cookies
 make request-redirect use request-send-headers, and optionally pass
 spare headers through from  caller
 
] {
hunk ./request.lisp 84
+				 location
+				 pragma
hunk ./request.lisp 106
-        (princ (s. "Set-Cookie: " set-cookie eol) stream))
+	(let ((cookies (if (listp set-cookie) set-cookie (list set-cookie))))
+	  (dolist (cookie cookies)
+	    (princ (s. "Set-Cookie: " cookie eol) stream))))
hunk ./request.lisp 111
+    (if location
+        (princ (s. "Location: " location eol) stream))
+    (if pragma
+        (princ (s. "Pragma: " pragma eol) stream))
hunk ./request.lisp 116
-        (princ (s. "Expires: " (date:universal-time-to-rfc-date expires) eol)
+        (princ (s. "Expires: "
+		   (if (numberp expires)
+		       (date:universal-time-to-rfc-date expires)
+		       expires)
+		   eol)
hunk ./request.lisp 146
-(defmethod request-redirect ((request request) new-url)  
+(defmethod request-redirect ((request request) new-url &rest headers)  
hunk ./request.lisp 151
+    (apply #'request-send-headers
+	   request
+	   :location urlstring
+	   :expires "Fri, 30 Oct 1998 14:19:41 GMT"
+	   :pragma "no-cache"
+	   :response-code 302 :response-text "Redirected"
+	   headers)
hunk ./request.lisp 159
-            "HTTP/1.0 302 Found
-Location: ~A
-Expires: Fri, 30 Oct 1998 14:19:41 GMT
-Pragma: no-cache
-Content-type: text/html
-~%<h1>Redirected</h1><p>Continue <a href=\"~A\">~A</a>"
-            urlstring urlstring urlstring)))
-          
+	    "~%<h1>Redirected</h1><p>Continue <a href=\"~A\">~A</a>"
+	    urlstring urlstring)))
+
}