diff options
Diffstat (limited to 'service/auth-service.lisp')
| -rw-r--r-- | service/auth-service.lisp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/service/auth-service.lisp b/service/auth-service.lisp index 1702bde..d250058 100644 --- a/service/auth-service.lisp +++ b/service/auth-service.lisp @@ -22,9 +22,9 @@ (org-ckons-json::objects-to-json `(,,instance)))) (defmacro with-noauth ((instance rest-service) &body body) - `(let ((,instance (make-instance ',rest-service))) - ,@body - (when (location-p ,instance) - (setf (session-value :message) nil) - (setf (session-value :errormsg) nil)) - (org-ckons-json::objects-to-json `(,,instance)))) + `(let ((,instance (make-instance ',rest-service))) + ,@body + (when (location-p ,instance) + (setf (session-value :message) nil) + (setf (session-value :errormsg) nil)) + (org-ckons-json::objects-to-json `(,,instance)))) |