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

Modified Files: command.lisp package.lisp protocol.lisp Log Message: Untabify files, per kire.

Date: Fri Nov 14 15:35:01 2003 Author: bmastenbrook

Index: net-nittin-irc/command.lisp diff -u net-nittin-irc/command.lisp:1.5 net-nittin-irc/command.lisp:1.6 --- net-nittin-irc/command.lisp:1.5 Fri Nov 14 15:23:53 2003 +++ net-nittin-irc/command.lisp Fri Nov 14 15:35:01 2003 @@ -1,4 +1,4 @@ -;;;; $Id: command.lisp,v 1.5 2003/11/14 20:23:53 bmastenbrook Exp $ +;;;; $Id: command.lisp,v 1.6 2003/11/14 20:35:01 bmastenbrook Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/command.lisp,v $

;;;; See LICENSE for licensing information. @@ -175,10 +175,10 @@ #+sbcl (defun socket-stream (socket) (sb-bsd-sockets:socket-make-stream socket - :element-type 'character - :input t - :output t - :buffering :none)) + :element-type 'character + :input t + :output t + :buffering :none))

(defun connect (&key (nickname *default-nickname*) (username nil) @@ -186,11 +186,11 @@ (mode 0) (server *default-irc-server*) (port *default-irc-server-port*) - (logging-stream t)) + (logging-stream t)) "Connect to server and return a connection object." (let* ((socket #+sbcl (connect-to-server-socket server port) - #-sbcl nil) - (stream #+lispworks (comm:open-tcp-stream server port :errorp t) + #-sbcl nil) + (stream #+lispworks (comm:open-tcp-stream server port :errorp t) #+cmu (sys:make-fd-stream (ext:connect-to-inet-socket server port) :input t :output t @@ -201,8 +201,8 @@ :username username :realname realname)) (connection (make-connection :server-socket socket - :server-stream stream - :client-stream logging-stream + :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.7 net-nittin-irc/package.lisp:1.8 --- net-nittin-irc/package.lisp:1.7 Fri Nov 14 15:23:53 2003 +++ net-nittin-irc/package.lisp Fri Nov 14 15:35:01 2003 @@ -1,4 +1,4 @@ -;;;; $Id: package.lisp,v 1.7 2003/11/14 20:23:53 bmastenbrook Exp $ +;;;; $Id: package.lisp,v 1.8 2003/11/14 20:35:01 bmastenbrook Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/package.lisp,v $

;;;; See the LICENSE file for licensing information. @@ -11,7 +11,7 @@ (:nicknames :irc) (:export :read-message-loop :read-message - :add-asynchronous-message-handler + :add-asynchronous-message-handler :send-message :server-name :server-stream @@ -28,16 +28,16 @@ :get-hooks :make-user :change-nickname - :irc-message - :source - :user - :host - :command - :arguments - :trailing-argument - :connection - :received-time - :raw-message-string + :irc-message + :source + :user + :host + :command + :arguments + :trailing-argument + :connection + :received-time + :raw-message-string :make-connection :make-channel :client-log

Index: net-nittin-irc/protocol.lisp diff -u net-nittin-irc/protocol.lisp:1.11 net-nittin-irc/protocol.lisp:1.12 --- net-nittin-irc/protocol.lisp:1.11 Fri Nov 14 15:24:39 2003 +++ net-nittin-irc/protocol.lisp Fri Nov 14 15:35:01 2003 @@ -1,4 +1,4 @@ -;;;; $Id: protocol.lisp,v 1.11 2003/11/14 20:24:39 bmastenbrook Exp $ +;;;; $Id: protocol.lisp,v 1.12 2003/11/14 20:35:01 bmastenbrook Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/protocol.lisp,v $

;;;; See LICENSE for licensing information. @@ -76,7 +76,7 @@

(defun make-connection (&key (user nil) (server-name "") - (server-socket nil) + (server-socket nil) (server-stream nil) (client-stream t) (channels nil) @@ -89,7 +89,7 @@ (connection (make-instance 'connection :user user :server-name server-name - :server-socket server-socket + :server-socket server-socket :server-stream server-stream :client-stream client-stream :channels channels @@ -113,10 +113,10 @@ (defmethod add-asynchronous-message-handler ((connection connection)) #+sbcl (sb-sys:add-fd-handler (sb-bsd-sockets:socket-file-descriptor - (server-socket connection)) - :input (lambda (fd) - (declare (ignore fd)) - (read-messsage connection))) + (server-socket connection)) + :input (lambda (fd) + (declare (ignore fd)) + (read-message connection))) #-sbcl (error "add-asynchronous-message-handler is not supported now on non-SBCL"))

@@ -479,10 +479,10 @@ (let ((*print-case* :upcase)) (let ((name (intern (format nil "IRC-~A-MESSAGE" command)))) `(progn - (defmethod find-irc-message-class ((type (eql ,command))) - (find-class ',name)) - (export ',name) - (defclass ,name (irc-message) ()))))) + (defmethod find-irc-message-class ((type (eql ,command))) + (find-class ',name)) + (export ',name) + (defclass ,name (irc-message) ())))))

(defun create-irc-message-classes (class-list) (dolist (class class-list) @@ -527,10 +527,10 @@ (let ((*print-case* :upcase)) (let ((name (intern (format nil "CTCP-~A-MESSAGE" ctcp-command)))) `(progn - (defmethod find-ctcp-message-class ((type (eql ,ctcp-command))) - (find-class ',name)) - (export ',name) - (defclass ,name (ctcp-mixin irc-message) ()))))) + (defmethod find-ctcp-message-class ((type (eql ,ctcp-command))) + (find-class ',name)) + (export ',name) + (defclass ,name (ctcp-mixin irc-message) ())))))

(defun create-ctcp-message-classes (class-list) (dolist (class class-list)