diff options
Diffstat (limited to 'src/lazybones.lisp')
| -rw-r--r-- | src/lazybones.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/lazybones.lisp b/src/lazybones.lisp index 97c7d40..ca168a5 100644 --- a/src/lazybones.lisp +++ b/src/lazybones.lisp @@ -332,6 +332,9 @@ Returns NIL on failure." (list (string-upcase var-name) (read-from-string (first decoder?))) (list (string-upcase var-name)))))) +(defun endpoint-route-variables (endpoint) + (route-variables (endpoint-dispatch-pattern endpoint))) + (defun route-variables (pattern) (loop for term in pattern when (listp term) |