Update of /project/net-nittin-irc/cvsroot/net-nittin-irc In directory common-lisp.net:/tmp/cvs-serv6743
Modified Files: command.lisp package.lisp Log Message: Added logging-stream to connect; exported irc-message class and slots.
Date: Fri Nov 14 15:23:53 2003 Author: bmastenbrook
Index: net-nittin-irc/command.lisp diff -u net-nittin-irc/command.lisp:1.4 net-nittin-irc/command.lisp:1.5 --- net-nittin-irc/command.lisp:1.4 Fri Nov 14 14:28:00 2003 +++ net-nittin-irc/command.lisp Fri Nov 14 15:23:53 2003 @@ -1,4 +1,4 @@ -;;;; $Id: command.lisp,v 1.4 2003/11/14 19:28:00 bmastenbrook Exp $ +;;;; $Id: command.lisp,v 1.5 2003/11/14 20:23:53 bmastenbrook Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/command.lisp,v $
;;;; See LICENSE for licensing information. @@ -185,7 +185,8 @@ (realname nil) (mode 0) (server *default-irc-server*) - (port *default-irc-server-port*)) + (port *default-irc-server-port*) + (logging-stream t)) "Connect to server and return a connection object." (let* ((socket #+sbcl (connect-to-server-socket server port) #-sbcl nil) @@ -201,6 +202,7 @@ :realname realname)) (connection (make-connection :server-socket socket :server-stream stream + :client-stream logging-stream :user user :server-name server))) (nick connection nickname)
Index: net-nittin-irc/package.lisp diff -u net-nittin-irc/package.lisp:1.6 net-nittin-irc/package.lisp:1.7 --- net-nittin-irc/package.lisp:1.6 Fri Nov 14 14:28:00 2003 +++ net-nittin-irc/package.lisp Fri Nov 14 15:23:53 2003 @@ -1,4 +1,4 @@ -;;;; $Id: package.lisp,v 1.6 2003/11/14 19:28:00 bmastenbrook Exp $ +;;;; $Id: package.lisp,v 1.7 2003/11/14 20:23:53 bmastenbrook Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/package.lisp,v $
;;;; See the LICENSE file for licensing information. @@ -28,6 +28,16 @@ :get-hooks :make-user :change-nickname + :irc-message + :source + :user + :host + :command + :arguments + :trailing-argument + :connection + :received-time + :raw-message-string :make-connection :make-channel :client-log