diff options
-rw-r--r-- | lazybones-client.lisp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lazybones-client.lisp b/lazybones-client.lisp index 65baed4..dbf6a01 100644 --- a/lazybones-client.lisp +++ b/lazybones-client.lisp @@ -30,14 +30,14 @@ endpoint EP." (with-output-to-string (*standard-output*) (princ (string-downcase (symbol-name (lazybones::endpoint-method ep)))) - (princ "/") + (princ "-") (loop for (term . more) on (lazybones::endpoint-dispatch-pattern ep) when (and (stringp term) (plusp (length term))) - do (princ term) + do (princ (string-downcase term)) when (listp term) - do (princ (car term)) + do (princ (string-downcase (car term))) when (and more (plusp (length term))) - do (princ "-")))) + do (princ "/")))) (defun endpoint-defun-route-var-names (ep) "Returns a list of strings representing the names of route variables |