Use ecase instead of case, and merge NS handling with PTR and CNAME.
(soa-expire soa)
(soa-min-ttl soa)))
(dolist (zr (zone-records zone))
(soa-expire soa)
(soa-min-ttl soa)))
(dolist (zr (zone-records zone))
(: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
(printrec zr)
(format stream "~A~%" (fix-host (zr-data zr))))
(:mx
(printrec zr)
(format stream "~A~%" (fix-host (zr-data zr))))
(:mx