diff options
| author | ckonstanski <ckonstanski@pippiandcarlos.com> | 2020-12-24 23:02:24 -0700 |
|---|---|---|
| committer | ckonstanski <ckonstanski@pippiandcarlos.com> | 2020-12-24 23:02:24 -0700 |
| commit | ad85a68776a44a7d8cb7366488c0ac9393905120 (patch) | |
| tree | 6c0e161384d0596d1b1beb666ca1132deb23820e /service/logout-service.lisp | |
| parent | e678d9ba62cd44795fe8d4b882e61dfbd672729e (diff) | |
fixed message and errormsg, added with-noauth macro
Diffstat (limited to 'service/logout-service.lisp')
| -rw-r--r-- | service/logout-service.lisp | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/service/logout-service.lisp b/service/logout-service.lisp index 54a02b4..d7ab412 100644 --- a/service/logout-service.lisp +++ b/service/logout-service.lisp @@ -7,10 +7,8 @@ ((location-p :initform nil)) (:documentation "")) -(defmethod initialize-instance :after ((logout-service logout-service) &key) - (setf (location logout-service) "/home") - (setf (message logout-service) "You are now logged out.")) - (defun logout-json () - (setf (session-value :permissions) "anonymous") - (org-ckons-json::objects-to-json `(,(make-instance 'logout-service)))) + (with-noauth (instance logout-service) + (setf (session-value :permissions) "anonymous") + (setf (location instance) "/home") + (setf (message instance) "You are now logged out."))) |