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 (file)
--- a/.gitignore
+++ b/.gitignore
@@ -2,3 +2,5 @@
 *.fas
 *.lib
 *.fasl
+*.core
+zone

diff --git a/Makefile b/Makefile
new file mode 100644 (file)
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 (file)
--- 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 (executable)
index be7ac0d..0000000
--- a/zone
+++ /dev/null
@@ -1,2 +0,0 @@
-#! /bin/sh
-exec cl-launch -s zone -i '(zone.frontend:main)' -- "$0" "$@"