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