switched to using header-value internally

darcs-hash:20060609140505-3cc5d-6a44aba6beb88eaf0edde50de87f9fea97c245f4.gz
hraban · Jun 9, 2006 · 490affe · 490affe
1 parent 209febc
commit 490affe
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/dev/simple-http.lisp b/dev/simple-http.lisp
@@ -132,7 +132,7 @@
 		   (return-from got (list response headers stream)))
 		 (when stream 
 		   (close stream))
-		 (setf url (cdr (assoc :location headers))))))
+		 (setf url (header-value :location headers)))))
 	(when (>= response 400)
 	  (when stream (close stream))
 	  (when signal-error?
@@ -151,7 +151,7 @@
                       (http-resolve url)
     (declare (ignore response))
     (unwind-protect
-    (let ((length (parse-integer (or (cdr (assoc :content-length headers)) "")
+    (let ((length (parse-integer (or (header-value :content-length headers) "")
 				 :junk-allowed t))
           (total 0))
       #+:clisp (setf (stream-element-type stream)