Update of /project/cl-irc/cvsroot/cl-irc In directory common-lisp:/tmp/cvs-serv3194

Modified Files: protocol.lisp Log Message: Untabify for consistent indenting accross all systems and editors.

--- /project/cl-irc/cvsroot/cl-irc/protocol.lisp 2006/01/23 23:23:49 1.26 +++ /project/cl-irc/cvsroot/cl-irc/protocol.lisp 2006/01/23 23:49:01 1.27 @@ -1,4 +1,4 @@ -;;;; $Id: protocol.lisp,v 1.26 2006/01/23 23:23:49 ehuelsmann Exp $ +;;;; $Id: protocol.lisp,v 1.27 2006/01/23 23:49:01 ehuelsmann Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/protocol.lisp,v $

;;;; See LICENSE for licensing information. @@ -268,9 +268,9 @@ (start-process #'do-loop name) #+(and sbcl (not sb-thread)) (sb-sys:add-fd-handler (sb-sys:fd-stream-fd - (server-stream connection)) - :input (lambda (fd) - (declare (ignore fd)) + (server-stream connection)) + :input (lambda (fd) + (declare (ignore fd)) (if (listen (server-stream connection)) (read-message connection) ;; select() returns with no @@ -850,19 +850,19 @@ "Intern based on symbol-name to support case-sensitive mlisp" (intern (concatenate 'string - (symbol-name prefix) - "-" - (symbol-name name) - "-" - (symbol-name '#:message)))) + (symbol-name prefix) + "-" + (symbol-name name) + "-" + (symbol-name '#:message))))

(defun define-irc-message (command) (let ((name (intern-message-symbol :irc 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) ())))))

(defmacro create-irc-message-classes (class-list) `(progn ,@(mapcar #'define-irc-message class-list))) @@ -870,7 +870,7 @@ ;; should perhaps wrap this in an eval-when? (create-irc-message-classes #.(remove-duplicates (mapcar #'second *reply-names*))) (create-irc-message-classes (:privmsg :notice :kick :topic :error :mode :ping - :nick :join :part :quit :kill :pong :invite)) + :nick :join :part :quit :kill :pong :invite))

(defmethod find-irc-message-class (type) (declare (ignore type)) @@ -909,10 +909,10 @@ (defun define-ctcp-message (ctcp-command) (let ((name (intern-message-symbol :ctcp 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) ())))))

(defmacro create-ctcp-message-classes (class-list) `(progn ,@(mapcar #'define-ctcp-message class-list)))