X-Git-Url: https://git.distorted.org.uk/~mdw/zone/blobdiff_plain/afb5d9e651733a0e7aacf42f892422931041f637..10b8955c3c8605f14fbbe7ee6be502d4c91efa08:/frontend.lisp

diff --git a/frontend.lisp b/frontend.lisp
index 7801a8a..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))
@@ -34,13 +34,13 @@
   "Which format to use on output.")
 
 (defun directory-exists-p (name)
-  
+
   ;; Make a pathname for NAME which has the right form for a directory.
   (let ((dirpath
 	 (let ((path (pathname name)))
 	   (if (null (pathname-name path))
 	       path
-	       (make-pathname :directory 
+	       (make-pathname :directory
 			      (append (or (pathname-directory path)
 					  (list :relative))
 				      (list (pathname-name path)))
@@ -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