From f3c67f2333f9ce836592e31dc026a5c9ef506116 Mon Sep 17 00:00:00 2001
From: Thomas Albers Raviola <thomas@thomaslabs.org>
Date: Sun, 5 May 2024 12:37:41 +0200
Subject: * Fix mistake in DEFINE-ROUTE

---
 src/routes.lisp | 4 ++--
 1 file 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
-- 
cgit v1.2.3