aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/client/ps/generate.lisp4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/client/ps/generate.lisp b/src/client/ps/generate.lisp
index f6f317b..d6a5aef 100644
--- a/src/client/ps/generate.lisp
+++ b/src/client/ps/generate.lisp
@@ -10,7 +10,7 @@
;; this function largely mirrors the implementation of construct-route-builder
-(defun generate (class)
+(defun generate (class &optional alt-name)
(when (symbolp class) (setf class (find-class class)))
(let*
@@ -46,7 +46,7 @@
:collect param
:when more
:collect "&")))))
- `(defun ,(class-name class) ,args
+ `(defun ,(or alt-name (class-name class)) ,args
(fetch (+ ,@parts ,@url-params)
(ps:create
method ,(string method)