diff options
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)) |