diff options
| author | colin <colin@cicadas.surf> | 2024-05-12 19:34:17 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-05-12 19:34:17 -0700 |
| commit | aa6f3256614a2b97cc8c46a84ad2de46add8a8b0 (patch) | |
| tree | dd8987d7e277e125044b4b0c41640df54d5c3d37 | |
| parent | e7cfcf1af2a67564527597257eba753a43eb3473 (diff) | |
Fix: custom metaclass in defendpoint; Add: :at route particle
| -rw-r--r-- | src/defendpoint.lisp | 4 |
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)) |