X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/zone/blobdiff_plain/db43369d61d700b1d0100998a2d9ecefe28ff8d4..1b5ebe0af47442b719ebdda3a9d1e1d1d8824622:/zone.lisp

diff --git a/zone.lisp b/zone.lisp
index 602f1f2..9a1a026 100644
--- 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)
-  ":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
@@ -1152,6 +1153,7 @@ (defun bind-output-hostname (hostname)
 	   name))))
 
 (defmethod zone-write :around ((format (eql :bind)) zone stream)
+  (declare (ignorable zone stream))
   (let ((*bind-last-record-name* nil))
     (call-next-method)))