diff options
| author | Thomas Albers Raviola <thomas@thomaslabs.org> | 2024-05-05 12:37:41 +0200 |
|---|---|---|
| committer | Thomas Albers Raviola <thomas@thomaslabs.org> | 2024-05-05 12:37:41 +0200 |
| commit | f3c67f2333f9ce836592e31dc026a5c9ef506116 (patch) | |
| tree | a0f58c4e12760e117b159ad399d039a7598c85a8 | |
| parent | 7aef9ab4480bb072ee08a30588b1780a14227fab (diff) | |
* Fix mistake in DEFINE-ROUTE
| -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 |