From aa6f3256614a2b97cc8c46a84ad2de46add8a8b0 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sun, 12 May 2024 19:34:17 -0700
Subject: Fix: custom metaclass in defendpoint; Add: :at route particle

---
 src/defendpoint.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/defendpoint.lisp b/src/defendpoint.lisp
index df10967..16f33a8 100644
--- a/src/defendpoint.lisp
+++ b/src/defendpoint.lisp
@@ -154,7 +154,7 @@ PART is either
   (<method>
    :match (:or= :get :post :put :patch :head :delete))
   (<pathspec>
-   :match (:seq (:or= :to :route) (:+ <pathpart>))
+   :match (:seq (:or= :to :at :route) (:+ <pathpart>))
    :then second)
   (<pathpart>
    :match (:item)
@@ -193,7 +193,7 @@ PART is either
   (<metaclass>
    :match (:seq (:= :custom) <classname>)
    :if (mop:subclassp (second <metaclass>) 'endpoint)
-   :then (list :metaclass (second <metaclass>))
+   :then (cons :metaclass (second <metaclass>))
    :note "SYMBOL naming a subclass of ENDPOINT")
   (<var>
    :match (:seq (:= :var) (:item))
-- 
cgit v1.2.3