zone.lisp: Silence warning from CLisp.

[zone] / zone.lisp

diff --git a/zone.lisp b/zone.lisp
index 602f1f236f6a6fbce5b773d7e59a864240b2bbd9..d855d0fa37c5ba84dc7056eeac50ee66a053e576 100644 (file)
--- 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)))