(soa-expire soa)
(soa-min-ttl soa)))
(dolist (zr (zone-records zone))
- (case (zr-type zr)
+ (ecase (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