Index: /trunk/ccl/examples/cocoa-listener.lisp
===================================================================
--- /trunk/ccl/examples/cocoa-listener.lisp	(revision 5562)
+++ /trunk/ccl/examples/cocoa-listener.lisp	(revision 5563)
@@ -90,5 +90,5 @@
 (define-objc-method ((:void :set-document-edited (:<BOOL> edited))
                      hemlock-listener-window-controller)
-  (declare (ignore edited)))
+  (declare (ignorable edited)))