From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 6 Sep 2011 11:46:00 +0000 (+0100)
Subject: Run via core file.
X-Git-Url: https://git.distorted.org.uk/~mdw/zone/commitdiff_plain/10b8955c3c8605f14fbbe7ee6be502d4c91efa08

Run via core file.

This gives rather faster response.  Maybe when this machinery moves to a
faster machine it'll be worth reverting this change, but right now it
seems good.
---

diff --git a/.gitignore b/.gitignore
index 2335672..5f1f79d 100644
--- a/.gitignore
+++ b/.gitignore
@@ -2,3 +2,5 @@
 *.fas
 *.lib
 *.fasl
+*.core
+zone
diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000..e39eaf2
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,6 @@
+CLEANFILES += zone
+all:: zone
+zone: frontend.lisp zone.lisp net.lisp serv.lisp sys.lisp
+	cl-launch -o $@ -s zone +I -d `pwd`/zone.core -r zone.frontend:main
+
+clean:; rm -f $(CLEANFILES)
diff --git a/frontend.lisp b/frontend.lisp
index 9d62d29..f957601 100644
--- a/frontend.lisp
+++ b/frontend.lisp
@@ -22,7 +22,7 @@
 ;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
 (defpackage #:zone.frontend
-  (:use #:common-lisp #:optparse #:net #:zone
+  (:use #:common-lisp #:mdw.sys-base #:optparse #:net #:zone
 	#+cmu #:mop
 	#+sbcl #:sb-mop)
   (:export #:main))
@@ -93,6 +93,7 @@
 			   "Write information about zone NAME.")))
 
 (defun main ()
+  (set-command-line-arguments)
   (with-unix-error-reporting ()
     (let ((files nil))
       (unless (option-parse-try
diff --git a/zone b/zone
deleted file mode 100755
index be7ac0d..0000000
--- a/zone
+++ /dev/null
@@ -1,2 +0,0 @@
-#! /bin/sh
-exec cl-launch -s zone -i '(zone.frontend:main)' -- "$0" "$@"