diff options
author | Colin Okay <okay@toyful.space> | 2022-02-06 08:31:50 -0600 |
---|---|---|
committer | Colin Okay <okay@toyful.space> | 2022-02-06 08:31:50 -0600 |
commit | f4516bd373812b81261c3018c39de7b6fe141d6b (patch) | |
tree | 2d716f8ffaf85f16033b7fa3f7ad1c64f9ce3003 /lazybones-hunchentoot.lisp | |
parent | b3e6b285bb39df9855f36be49f2fc416623c8414 (diff) |
binding of dynamic variables pushed to run-endpoint
Diffstat (limited to 'lazybones-hunchentoot.lisp')
-rw-r--r-- | lazybones-hunchentoot.lisp | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/lazybones-hunchentoot.lisp b/lazybones-hunchentoot.lisp index 2b84ac1..1e62b85 100644 --- a/lazybones-hunchentoot.lisp +++ b/lazybones-hunchentoot.lisp @@ -122,11 +122,9 @@ the value of the Content-Type request header." :address "0.0.0.0")) (defmethod h:acceptor-dispatch-request ((acceptor lazybones-acceptor) request) - (let ((lzb:*request* request) - (lzb:*response* h:*reply*)) - (loop for app in (acceptor-apps acceptor) - for (endpoint . args) = (lzb:find-endpoint app request) - when endpoint - return (lzb:run-endpoint endpoint args request) - ;; if no endpoint was found, call next method. - finally (call-next-method)))) + (loop for app in (acceptor-apps acceptor) + for (endpoint . args) = (lzb:find-endpoint app request) + when endpoint + return (lzb:run-endpoint endpoint args request h:*reply* app) + ;; if no endpoint was found, call next method. + finally (call-next-method))) |