chiark
/
gitweb
/
~mdw
/
zone
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
zone: Simplify zone-write.
[zone]
/
zone.lisp
diff --git
a/zone.lisp
b/zone.lisp
index 5546b8a8ea856873ae1edd714c096c04b901c0cd..d3b2c4e80839a53698a19f343bb276945b26067d 100644
(file)
--- a/
zone.lisp
+++ b/
zone.lisp
@@
-748,14
+748,11
@@
(defun zone-write (zone &optional (stream *standard-output*))
(soa-expire soa)
(soa-min-ttl soa)))
(dolist (zr (zone-records zone))
(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))))
(: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
(printrec zr)
(format stream "~A~%" (fix-host (zr-data zr))))
(:mx