From 5f704108a1b0471cd2f61a6b7e1c586c2e94303f Mon Sep 17 00:00:00 2001 From: colin Date: Fri, 31 May 2024 10:59:27 -0700 Subject: Fix: bad function call in default argument --- src/endpoint.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/endpoint.lisp b/src/endpoint.lisp index c827036..ebc6399 100644 --- a/src/endpoint.lisp +++ b/src/endpoint.lisp @@ -323,7 +323,7 @@ Good for indicating that you've got a bonkers class option syntax" (defparameter +hunchentoot-methods-with-body+ '(:post :put :patch)) -(defun body-expected-p (&optional (method http:request-method*)) +(defun body-expected-p (&optional (method (http:request-method*))) (member method +hunchentoot-methods-with-body+ :test #'eq)) (defun extract-mimetype (str) -- cgit v1.2.3