From 0bb74d0610ee30e3c9076a90aec1aa57b937b5ec Mon Sep 17 00:00:00 2001 From: Eitaro Fukamachi Date: Thu, 29 Aug 2019 16:21:08 +0900 Subject: [PATCH] Fix the style warnings and an error of generate-env in Lack.Test. --- src/test.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/test.lisp b/src/test.lisp index c1bfa43..8be18b4 100644 --- a/src/test.lisp +++ b/src/test.lisp @@ -29,7 +29,9 @@ Argument `uri' can be just a path or a full url with scheme and optional port." (let* ((uri (quri:uri uri)) - (path (quri:url-decode (quri:uri-path uri) :lenient t)) + (path (if (quri:uri-path uri) + (quri:url-decode (quri:uri-path uri) :lenient t) + "/")) (query (quri:uri-query uri)) (host (or (quri:uri-host uri) "localhost")) @@ -112,7 +114,6 @@ (defun request (uri &rest args &key (method :get) content headers cookie-jar (max-redirects 5)) - (declare (ignore method content headers)) (let ((env (generate-env uri :method method :content content :headers headers :cookie-jar cookie-jar))