aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/defendpoint.lisp5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/defendpoint.lisp b/src/defendpoint.lisp
index 16f33a8..72c536e 100644
--- a/src/defendpoint.lisp
+++ b/src/defendpoint.lisp
@@ -10,6 +10,8 @@ PART is either
(KEYWORD STRING)
(KEYWORD STRING FUNCTION-NAME)"
(or (stringp part)
+ (and (symbolp part)
+ (not (keywordp part))) ; for variables
(and (listp part)
(or (and (= 2 (length part))
(do>
@@ -87,7 +89,8 @@ PART is either
(reduce #'union supers :key #'class-slot-names :initial-value nil)))
(route-parts
(loop :for part :in pathspec
- :when (stringp part)
+ :when (or (stringp part)
+ (and (symbolp part) (not (keywordp part))))
:collect part
:else
:collect (second part)))