;;; 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