diff options
Diffstat (limited to 'lazybones.lisp')
-rw-r--r-- | lazybones.lisp | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lazybones.lisp b/lazybones.lisp index 9eb719a..0fe323b 100644 --- a/lazybones.lisp +++ b/lazybones.lisp @@ -339,6 +339,7 @@ applying HANDLER-FUNCTION slot of ENDPOINT to the ARGS list." (let ((*request* request) (*response* response) (*app* app)) + (setf (response-code) 200) (if (request-authorized-p endpoint) (http-respond (apply (endpoint-request-handler endpoint) args)) (http-err 403)))) |