chiark / gitweb /
zone.lisp: Silence warning from CLisp.
authorMark Wooding <mdw@distorted.org.uk>
Thu, 22 May 2014 09:06:00 +0000 (10:06 +0100)
committerMark Wooding <mdw@distorted.org.uk>
Thu, 22 May 2014 09:06:00 +0000 (10:06 +0100)
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)))