diff options
| author | colin <colin@cicadas.surf> | 2024-05-31 10:59:27 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-05-31 10:59:27 -0700 |
| commit | 5f704108a1b0471cd2f61a6b7e1c586c2e94303f (patch) | |
| tree | 2b9755eb216ca35641a58ffe919f5819a0c32984 | |
| parent | f069b37946186c43dff1c4aecb803b916d8758b9 (diff) | |
Fix: bad function call in default argument
| -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) |