(defvar *empire-session*)
+(defmacro with-session (&body body)
+ `(let ((*empire-session* (session-value 'session)))
+ (if *empire-session*
+ (progn ,@body)
+ (redirect +login-page+))))
+
(defun update ()
"Send stream of updates to client"
(with-session
(defmethod data ((s session) message)
(send s (parenscript:ps* `(msg ,message))))
-(defmacro with-session (&body body)
- `(let ((*empire-session* (session-value 'session)))
- (if *empire-session*
- (progn ,@body)
- (redirect +login-page+))))
-
;; destination of login-form
(defun login-action ()
(handler-case