Permalink
Browse files

fix bug in process-route/impl

  • Loading branch information...
1 parent 2b93898 commit 2606d0286d27bc5ac9ba65a9ac1869a30001fedd @archimag committed Mar 8, 2010
Showing with 3 additions and 2 deletions.
  1. +3 −2 src/route.lisp
View
@@ -55,8 +55,9 @@
(call-next-method)))
(defmethod process-route/impl ((route simple-route) bindings)
- (funcall (get (slot-value route 'symbol)
- :handler)))
+ (let ((*bindings* bindings))
+ (funcall (get (slot-value route 'symbol)
+ :handler))))
(defmacro define-route (name (template &key content-type (method :get) requirement parse-vars) &body body)

0 comments on commit 2606d02

Please sign in to comment.