chiark
/
gitweb
/
~mdw
/
zone
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
zone.lisp: Stringify the zone name at construction time.
[zone]
/
zone.lisp
diff --git
a/zone.lisp
b/zone.lisp
index 1324f701e1b562040ff21c80cf8e45de891054b4..6b84dac957619fea85e63928434e7b0049029bd1 100644
(file)
--- a/
zone.lisp
+++ b/
zone.lisp
@@
-439,7
+439,7
@@
(defun zone-parse-head (head)
(ttl min-ttl)
(serial (make-zone-serial zname)))
(listify head)
- (values
zname
+ (values
(string-downcase zname)
(timespec-seconds ttl)
(make-soa :admin admin
:source (zone-parse-host source zname)