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

diff --git a/zone.lisp b/zone.lisp
index 602f1f2..d855d0f 100644
--- a/zone.lisp
+++ b/zone.lisp
@@ -1152,6 +1152,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)))