From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 5 May 2024 01:49:12 +0000 (+0100)
Subject: zone.lisp: Initialize the default timeouts with timespec forms.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/zone/commitdiff_plain/f0b4f74bf2d46dd5a10abc1bf024c2a77dfd3928?ds=inline

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

Mostly to show that it can be done.
---

diff --git a/zone.lisp b/zone.lisp
index d5d2072..3456b45 100644
--- 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*)
-(defvar *default-zone-refresh* (* 8 60 60)
+(defvar *default-zone-refresh* '(8 :hours)
   "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*)
-(defvar *default-zone-retry* (* 20 60)
+(defvar *default-zone-retry* '(20 :minutes)
   "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*)
-(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*)
-(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*)