From bc971edf4284f7d16d94659f6e21a9127a419d56 Mon Sep 17 00:00:00 2001
From: Gerd Flaig <gefla@gefla-mac-zrh>
Date: Sat, 27 Dec 2008 16:41:24 +0100
Subject: [PATCH] define with-session before usaeg

---
 web.lisp | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/web.lisp b/web.lisp
index ac6a94a..b3a8a75 100644
--- a/web.lisp
+++ b/web.lisp
@@ -55,6 +55,12 @@
 
 (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
@@ -70,12 +76,6 @@
 (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
-- 
2.43.0