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.
*.fas
*.lib
*.fasl
+*.core
+zone
--- /dev/null
+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)
;;; 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))
"Write information about zone NAME.")))
(defun main ()
+ (set-command-line-arguments)
(with-unix-error-reporting ()
(let ((files nil))
(unless (option-parse-try
+++ /dev/null
-#! /bin/sh
-exec cl-launch -s zone -i '(zone.frontend:main)' -- "$0" "$@"