diff options
Diffstat (limited to 'lazybones.lisp')
-rw-r--r-- | lazybones.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lazybones.lisp b/lazybones.lisp index 148cd05..5f46a83 100644 --- a/lazybones.lisp +++ b/lazybones.lisp @@ -285,11 +285,12 @@ Returns NIL on failure." (list (string-upcase var-name) (read-from-string (first decoder?))) (list (string-upcase var-name)))))) -(defun route-variables (route) - (loop for term in route +(defun route-variables (pattern) + (loop for term in pattern when (listp term) collect (first term))) + (defun run-endpoint (endpoint args request response app) "Bind dynamic variables *request* *response* and *app* before applying HANDLER-FUNCTION slot of ENDPOINT to the ARGS list." |