From 099f6509310bdbb2507a3ae6a119860885d99543 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Mon, 7 Feb 2022 15:26:26 -0600
Subject: debugging post body deserialization

---
 lazybones.lisp | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lazybones.lisp')

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
-- 
cgit v1.2.3