From e30ee019294e2abbbd3644b73e4327ae17df4392 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Mon, 27 May 2024 14:52:07 -0600 Subject: gallery --- lisp/service/auth-service.lisp | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'lisp/service/auth-service.lisp') 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)) -- cgit v1.3