chiark / gitweb /
Run via core file.
authorMark Wooding <mdw@distorted.org.uk>
Tue, 6 Sep 2011 11:46:00 +0000 (12:46 +0100)
committerMark Wooding <mdw@distorted.org.uk>
Tue, 6 Sep 2011 11:46:00 +0000 (12:46 +0100)
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.

.gitignore
Makefile [new file with mode: 0644]
frontend.lisp
zone [deleted file]

index 2335672..5f1f79d 100644 (file)
@@ -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)
index 9d62d29..f957601 100644 (file)
@@ -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 @@ (define-program
                           "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" "$@"