add IGNORE declarations for some unused arguments

concurrency-chanl.lisp

@@ -94,6 +94,7 @@ message could be received."
 (defun mailbox-list-messages (mailbox)
   "Returns a fresh list containing all the messages in the
 mailbox. Does not remove messages from the mailbox."
+  (declare (ignore mailbox))
   (error "not implemented"))
 
 (defun mailbox-receive-pending-messages (mailbox &optional n)

resource.lisp

@@ -142,9 +142,11 @@ ignore any already received data from this client."))
   with the second argument of this function."))
 
 (defmethod resource-accept-connection (res resource-name headers client)
+  (declare (ignore res resource-name headers client))
   t)
 
 (defmethod resource-client-connected (res client)
+  (declare (ignore res client))
   nil)
 
 (defmethod send-custom-message-to-resource (resource message)
@@ -157,6 +159,7 @@ ignore any already received data from this client."))
   function on the main resource thread."))
 
 (defmethod resource-received-custom-message (resource (message funcall-custom-message))
+  (declare (ignore resource))
   (funcall (message-function message)))
 
 (defgeneric call-on-resource-thread (resource fn)