zone.lisp: Use `*default-zone-ttl*' as the default zone TTL.

diff --git a/zone.lisp b/zone.lisp
index 96cddfb65b9a2b523f258a8dc83c41471fad2ace..f7717ff028bc1889592ac5503fbc0f5fa03774df 100644 (file)
--- a/zone.lisp
+++ b/zone.lisp
@@ -552,7 +552,7 @@ (defun zone-parse-head (head)
        (retry *default-zone-retry*)
        (expire *default-zone-expire*)
        (min-ttl *default-zone-min-ttl*)
        (retry *default-zone-retry*)
        (expire *default-zone-expire*)
        (min-ttl *default-zone-min-ttl*)

-       (ttl min-ttl)
+       (ttl *default-zone-ttl*)

        (serial (make-zone-serial raw-zname))
        &aux
        (zname (zone-parse-host raw-zname root-domain)))
        (serial (make-zone-serial raw-zname))
        &aux
        (zname (zone-parse-host raw-zname root-domain)))