debugging post body deserialization

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