diff options
| author | ckonstanski <carlos.konstanski@olo.com> | 2024-05-27 14:52:07 -0600 |
|---|---|---|
| committer | ckonstanski <carlos.konstanski@olo.com> | 2024-05-27 14:52:07 -0600 |
| commit | e30ee019294e2abbbd3644b73e4327ae17df4392 (patch) | |
| tree | 44d03581f96d81e0990f0664c01e725de542e9c2 /lisp/service/auth-service.lisp | |
| parent | 42e351bb04d38b01a1d5b251cdbc0caaa4be3712 (diff) | |
gallery
Diffstat (limited to 'lisp/service/auth-service.lisp')
| -rw-r--r-- | lisp/service/auth-service.lisp | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/service/auth-service.lisp b/lisp/service/auth-service.lisp index 9509385..b6ce12e 100644 --- a/lisp/service/auth-service.lisp +++ b/lisp/service/auth-service.lisp @@ -39,3 +39,10 @@ (setf (session-value :message) nil) (setf (session-value :errormsg) nil)) (org-ckons-json::objects-to-json `(,,instance)))) + +(defmacro with-noauth-raw ((instance rest-service) &body body) + `(let ((,instance (make-instance ',rest-service))) + (when (location-p ,instance) + (setf (session-value :message) nil) + (setf (session-value :errormsg) nil)) + ,@body)) |