Author: ehuelsmann Date: Fri Jan 5 06:25:40 2007 New Revision: 168 Modified: trunk/event.lisp trunk/protocol.lisp Log: Fix several compile-warnings in SBCL. Modified: trunk/event.lisp ============================================================================== --- trunk/event.lisp (original) +++ trunk/event.lisp Fri Jan 5 06:25:40 2007 @@ -155,7 +155,7 @@ (destructuring-bind (nick chan-visibility channel names) (arguments message) - (declare (ignore nick chan-visibility)) + (declare (ignore nick)) (let ((channel (find-channel connection channel))) (setf (visibility channel) (or (car (assoc chan-visibility Modified: trunk/protocol.lisp ============================================================================== --- trunk/protocol.lisp (original) +++ trunk/protocol.lisp Fri Jan 5 06:25:40 2007 @@ -972,6 +972,8 @@ (defclass standard-ctcp-message (ctcp-mixin irc-message) ()) (defgeneric find-ctcp-message-class (type)) +(defgeneric ctcp-request-p (message)) +(defgeneric ctcp-reply-p (message)) (eval-when (:compile-toplevel :load-toplevel :execute) (defun define-ctcp-message (ctcp-command)