Index: /trunk/source/cocoa-ide/hemlock/src/charprops.lisp
===================================================================
--- /trunk/source/cocoa-ide/hemlock/src/charprops.lisp	(revision 12804)
+++ /trunk/source/cocoa-ide/hemlock/src/charprops.lisp	(revision 12805)
@@ -563,5 +563,4 @@
 (defun set-charprops (mark charprops &key (count 1 count-supplied-p)
                            (end nil end-supplied-p) (filter (charprops-names charprops)))
-  (declare (ignore filter end count charprops mark))
   (when (and count-supplied-p end-supplied-p)
     (error "Only one of count or end can be supplied."))