diff options
| -rw-r--r-- | src/endpoint.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
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) |