zone.lisp: Initialize the default timeouts with timespec forms.

[zone] / zone.lisp

diff --git a/zone.lisp b/zone.lisp
index d5d20724c43e7feeac90c4d1e3137f4b9bacc602..3456b45b1c3e19913fa86aec2de1d5e7a68ad0d1 100644 (file)
--- a/zone.lisp
+++ b/zone.lisp
@@ -276,7 +276,7 @@ (defvar *default-zone-source*
   "The default zone source: the current host's name.")
 
 (export '*default-zone-refresh*)
   "The default zone source: the current host's name.")
 
 (export '*default-zone-refresh*)

-(defvar *default-zone-refresh* (* 8 60 60)
+(defvar *default-zone-refresh* '(8 :hours)

   "Default zone refresh interval: eight hours.")
 
 (export '*default-zone-admin*)
   "Default zone refresh interval: eight hours.")
 
 (export '*default-zone-admin*)


@@ -284,19 +284,19 @@ (defvar *default-zone-admin* nil
   "Default zone administrator's email address.")
 
 (export '*default-zone-retry*)
   "Default zone administrator's email address.")
 
 (export '*default-zone-retry*)

-(defvar *default-zone-retry* (* 20 60)
+(defvar *default-zone-retry* '(20 :minutes)

   "Default zone retry interval: twenty minutes.")
 
 (export '*default-zone-expire*)
   "Default zone retry interval: twenty minutes.")
 
 (export '*default-zone-expire*)

-(defvar *default-zone-expire* (* 3 24 60 60)
+(defvar *default-zone-expire* '(3 :days)

   "Default zone expiry time: three days.")
 
 (export '*default-zone-min-ttl*)
   "Default zone expiry time: three days.")
 
 (export '*default-zone-min-ttl*)

-(defvar *default-zone-min-ttl* (* 4 60 60)
+(defvar *default-zone-min-ttl* '(4 :hours)

   "Default zone minimum/negative TTL: four hours.")
 
 (export '*default-zone-ttl*)
   "Default zone minimum/negative TTL: four hours.")
 
 (export '*default-zone-ttl*)

-(defvar *default-zone-ttl* (* 4 60 60)
+(defvar *default-zone-ttl* '(4 :hours)

   "Default zone TTL (for records without explicit TTLs): four hours.")
 
 (export '*default-mx-priority*)
   "Default zone TTL (for records without explicit TTLs): four hours.")
 
 (export '*default-mx-priority*)