diff options
| -rw-r--r-- | src/defendpoint.lisp | 5 |
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))) |