[Cl-irc-cvs] CVS update: cl-irc/protocol.lisp cl-irc/package.lisp

Erik Huelsmann ehuelsmann at common-lisp.net
Mon Mar 21 22:32:36 UTC 2005


Update of /project/cl-irc/cvsroot/cl-irc
In directory common-lisp.net:/tmp/cvs-serv16287

Modified Files:
	protocol.lisp package.lisp 
Log Message:
Cleanup.

* package.lisp: Remove exported but undefined symbols.

* protocol.lisp: Remove deprecated method.

Date: Mon Mar 21 23:32:35 2005
Author: ehuelsmann

Index: cl-irc/protocol.lisp
diff -u cl-irc/protocol.lisp:1.19 cl-irc/protocol.lisp:1.20
--- cl-irc/protocol.lisp:1.19	Mon Mar 21 20:41:42 2005
+++ cl-irc/protocol.lisp	Mon Mar 21 23:32:35 2005
@@ -1,4 +1,4 @@
-;;;; $Id: protocol.lisp,v 1.19 2005/03/21 19:41:42 ehuelsmann Exp $
+;;;; $Id: protocol.lisp,v 1.20 2005/03/21 22:32:35 ehuelsmann Exp $
 ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/protocol.lisp,v $
 
 ;;;; See LICENSE for licensing information.
@@ -749,14 +749,6 @@
   (do-property-list (prop val (modes channel))
      (when (and val (eq (value-type val) :user))
        (unset-mode channel prop user))))
-
-(defmethod remove-channel ((channel channel) (user user))
-  "Remove `channel' from `user'."
-  (warn
-   (concatenate 'string
-                "use of depricated API (remove-channel channel user): "
-                "(remove-channel user channel) is now preferred"))
-  (remove-channel user channel))
 
 (defmethod remove-channel ((user user) (channel channel))
   "Remove `channel' from `user'."


Index: cl-irc/package.lisp
diff -u cl-irc/package.lisp:1.6 cl-irc/package.lisp:1.7
--- cl-irc/package.lisp:1.6	Sun Mar 20 17:55:36 2005
+++ cl-irc/package.lisp	Mon Mar 21 23:32:35 2005
@@ -1,4 +1,4 @@
-;;;; $Id: package.lisp,v 1.6 2005/03/20 16:55:36 ehuelsmann Exp $
+;;;; $Id: package.lisp,v 1.7 2005/03/21 22:32:35 ehuelsmann Exp $
 ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/package.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -15,7 +15,6 @@
              :start-background-message-handler
              :stop-background-message-handler
              :socket-connect
-             :send-message
              :server-name
              :no-such-reply
              :irc-mode
@@ -41,9 +40,6 @@
              :server-stream
              :client-stream
              :channels
-             :configuration
-             :dangling-users
-             :channel-list
              :add-hook
              :remove-hook
              :remove-hooks




More information about the cl-irc-cvs mailing list