aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorcolin <colin@cicadas.surf>2024-05-12 19:34:17 -0700
committercolin <colin@cicadas.surf>2024-05-12 19:34:17 -0700
commitaa6f3256614a2b97cc8c46a84ad2de46add8a8b0 (patch)
treedd8987d7e277e125044b4b0c41640df54d5c3d37 /src
parente7cfcf1af2a67564527597257eba753a43eb3473 (diff)
Fix: custom metaclass in defendpoint; Add: :at route particle
Diffstat (limited to 'src')
-rw-r--r--src/defendpoint.lisp4
1 files 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))