[cl-irc-cvs] r168 - trunk

[ehuelsmann at common-lisp.net]

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)