notification cleanup and message marking

1 files changed, 8 insertions, 8 deletions

diff --git a/lisp/service/auth-service.lisp b/lisp/service/auth-service.lisp
index 8450e64..0862147 100644
--- a/lisp/service/auth-service.lisp
+++ b/lisp/service/auth-service.lisp
@@ -20,15 +20,15 @@
      (when (null (errormsg ,instance))
        ,@body)
      (when (location-p ,instance)
-       (setf (session-value :message) nil)
-       (setf (session-value :errormsg) nil))
+       (setf (message instance) nil)
+       (setf (errormsg instance) nil))
      (org-ckons-json::objects-to-json `(,,instance))))
 
 (defmacro with-auth-raw ((instance auth-service roles) &body body)
   `(let ((,instance (make-instance ',auth-service :roles ,roles)))
      (when (location-p ,instance)
-       (setf (session-value :message) nil)
-       (setf (session-value :errormsg) nil))
+       (setf (message instance) nil)
+       (setf (errormsg instance) nil))
      (when (null (errormsg ,instance))
        ,@body)))
 
@@ -36,13 +36,13 @@
   `(let ((,instance (make-instance ',rest-service)))
      ,@body
      (when (location-p ,instance)
-       (setf (session-value :message) nil)
-       (setf (session-value :errormsg) nil))
+       (setf (message instance) nil)
+       (setf (errormsg instance) 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))
+       (setf (message instance) nil)
+       (setf (errormsg instance) nil))
      ,@body))