chiark
/
gitweb
/
~mdw
/
zone
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
zone.lisp: Stringify the zone name at construction time.
[zone]
/
frontend.lisp
diff --git
a/frontend.lisp
b/frontend.lisp
index 7801a8a17b64130999abec5a37145e8f963e84c4..f9576019504077e2a0b95f52ef87242f98b0a625 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
;;; 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))
#+cmu #:mop
#+sbcl #:sb-mop)
(:export #:main))
@@
-34,13
+34,13
@@
(defvar opt-format :bind
"Which format to use on output.")
(defun directory-exists-p (name)
"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 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)))
(append (or (pathname-directory path)
(list :relative))
(list (pathname-name path)))
@@
-93,6
+93,7
@@
(define-program
"Write information about zone NAME.")))
(defun main ()
"Write information about zone NAME.")))
(defun main ()
+ (set-command-line-arguments)
(with-unix-error-reporting ()
(let ((files nil))
(unless (option-parse-try
(with-unix-error-reporting ()
(let ((files nil))
(unless (option-parse-try