diff options
Diffstat (limited to 'lazybones.lisp')
-rw-r--r-- | lazybones.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lazybones.lisp b/lazybones.lisp index 9b767bf..45da60b 100644 --- a/lazybones.lisp +++ b/lazybones.lisp @@ -301,6 +301,7 @@ making a new one if not." ,the-app (make-instance ',endpoint-class + :method ,method :route ,route :pattern ',dispatch-pattern :doc ,documentation @@ -308,6 +309,9 @@ making a new one if not." :function (lambda ,params ,@real-body) ,@endpoint-initargs)))))) +(defmacro defendpoint* (method route options &rest body) + "Like DEFENDPOINT but uses the current package name as the app name." + `(defendpoint ,(intern (package-name cl:*package*)) ,method ,route ,options ,@body)) ;;; utilities |