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: Fix the docstring for `:srv' records.
[zone]
/
zone.lisp
diff --git
a/zone.lisp
b/zone.lisp
index 602f1f236f6a6fbce5b773d7e59a864240b2bbd9..9a1a026a788310dd2d89f984a466eb5efc95b497 100644
(file)
--- a/
zone.lisp
+++ b/
zone.lisp
@@
-891,7
+891,8
@@
(defzoneparse :alias (name data rec :zname zname)
:data name)))
(defzoneparse :srv (name data rec :zname zname)
:data name)))
(defzoneparse :srv (name data rec :zname zname)
- ":srv (((SERVICE &key :port) (PROVIDER &key :port :prio :weight :ip)*)*)"
+ ":srv (((SERVICE &key :port :protocol)
+ (PROVIDER &key :port :prio :weight :ip)*)*)"
(dolist (srv data)
(destructuring-bind (servopts &rest providers) srv
(destructuring-bind
(dolist (srv data)
(destructuring-bind (servopts &rest providers) srv
(destructuring-bind
@@
-1152,6
+1153,7
@@
(defun bind-output-hostname (hostname)
name))))
(defmethod zone-write :around ((format (eql :bind)) zone stream)
name))))
(defmethod zone-write :around ((format (eql :bind)) zone stream)
+ (declare (ignorable zone stream))
(let ((*bind-last-record-name* nil))
(call-next-method)))
(let ((*bind-last-record-name* nil))
(call-next-method)))