From 03ebd1d1c44e88b2856179b84c6a5cc4ea7d0071 Mon Sep 17 00:00:00 2001
From: Gerd Flaig <gefla@gefla-mac-zrh>
Date: Sun, 21 Dec 2008 15:51:20 +0100
Subject: [PATCH] remember server on startup

---
 setup.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/setup.lisp b/setup.lisp
index 9fe8ae9..c689336 100644
--- a/setup.lisp
+++ b/setup.lisp
@@ -1,5 +1,6 @@
 (asdf:oos 'asdf:load-op "eow")
-(hunchentoot:start-server :port 4242)
+(setf *webserver* (hunchentoot:start-server :port 4242))
+;; (hunchentoot:stop-server *webserver*)
 (setf hunchentoot:*show-lisp-backtraces-p* t)
 (setf hunchentoot:*show-lisp-errors-p* t)
 (empire-web:start)
-- 
2.43.0