zone.lisp: Silence warning from CLisp.

[zone] / zone.lisp

diff --git a/zone.lisp b/zone.lisp
index 602f1f2..d855d0f 100644 (file)
--- a/zone.lisp
+++ b/zone.lisp
@@ -1152,6 +1152,7 @@
           name))))
 
 (defmethod zone-write :around ((format (eql :bind)) zone stream)
+  (declare (ignorable zone stream))
   (let ((*bind-last-record-name* nil))
     (call-next-method)))