diff options
| -rw-r--r-- | src/routes.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/routes.lisp b/src/routes.lisp index eb66acc..9cef55d 100644 --- a/src/routes.lisp +++ b/src/routes.lisp @@ -39,8 +39,8 @@ the METHOD it handles. METHOD may be a keyword or a list of keywords." `(progn (let ((entry (assoc ',name *routes-table*))) (if entry - (setf (second entry ,(ensure-list method)) - (third entry ,uri)) + (setf (second entry) ,(ensure-list method) + (third entry) ,uri) (push '(,name ,(ensure-list method) ,uri) *routes-table*))) (defun ,name (,headers ,uri-bindings) ,@declarations |