(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)
(rec :data (zone-parse-host data zname)))
(defzoneparse :txt (name data rec)
- ":txt TEXT"
- (rec :data data))
+ ":txt (TEXT*)"
+ (rec :data (listify data)))
(export '*dkim-pathname-defaults*)
(defvar *dkim-pathname-defaults*
(cons "~2D ~2D ~A" data))
(:method ((type (eql :txt)) data)
(cons "~#[\"\"~;~S~:;(~@{~%~8T~S~} )~]"
- (mapcar #'stringify (listify data)))))
+ (mapcar #'stringify data))))
(defmethod bind-record (type zr)
(destructuring-bind (format &rest args)