~mdw
/
zone
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5fbfaf4
)
zone: Simplify zone-write.
author
Mark Wooding
<mdw@distorted.org.uk>
Fri, 15 Jun 2007 11:53:35 +0000
(12:53 +0100)
committer
Mark Wooding
<mdw@distorted.org.uk>
Fri, 15 Jun 2007 11:53:35 +0000
(12:53 +0100)
Use ecase instead of case, and merge NS handling with PTR and CNAME.
zone.lisp
patch
|
blob
|
blame
|
history
diff --git
a/zone.lisp
b/zone.lisp
index
5546b8a
..
d3b2c4e
100644
(file)
--- a/
zone.lisp
+++ b/
zone.lisp
@@
-748,14
+748,11
@@
$TTL ~2@*~D~2%"
(soa-expire soa)
(soa-min-ttl soa)))
(dolist (zr (zone-records zone))
- (case (zr-type zr)
+ (
e
case (zr-type zr)
(:a
(printrec zr)
(format stream "~A~%" (ipaddr-string (zr-data zr))))
- ((:ptr :cname)
- (printrec zr)
- (format stream "~A~%" (fix-host (zr-data zr))))
- (:ns
+ ((:ptr :cname :ns)
(printrec zr)
(format stream "~A~%" (fix-host (zr-data zr))))
(:mx