From 8c630cd67c27858db0cd521e38efda4e5003a536 Mon Sep 17 00:00:00 2001 From: Ole Arndt Date: Wed, 10 Feb 2016 16:14:05 +0100 Subject: [PATCH] Fix HTTP port default value. Wrap default value of 80 around port instead of path. --- quicklisp/http.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/quicklisp/http.lisp b/quicklisp/http.lisp index 7332eb8..a649751 100644 --- a/quicklisp/http.lisp +++ b/quicklisp/http.lisp @@ -681,7 +681,7 @@ the indexes in the header accordingly." (defgeneric request-buffer (method url) (:method (method url) (setf url (url url)) - (make-request-buffer (hostname url) (port url) (or (path url) 80) + (make-request-buffer (hostname url) (or (port url) 80) (path url) :method method))) (defun urlstring (url) @@ -802,7 +802,7 @@ the indexes in the header accordingly." (if call (apply call (urlstring url) file rest) (error "Unknow scheme ~S" url)))) - + (defun http-fetch (url file &key (follow-redirects t) quietly (if-exists :rename-and-delete) (maximum-redirects *maximum-redirects*))