[Cl-irc-cvs] CVS cl-irc

ehuelsmann ehuelsmann at common-lisp.net
Mon Jan 23 23:49:01 UTC 2006


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)))




More information about the cl-irc-cvs mailing list