[net-nittin-irc-cvs] CVS update: net-nittin-irc/command.lisp net-nittin-irc/package.lisp

[Brian Mastenbrook]

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