[Cl-irc-cvs] r120 - trunk/cl-irc

ehuelsmann at common-lisp.net ehuelsmann at common-lisp.net
Tue Jan 24 21:36:49 UTC 2006


Author: ehuelsmann
Date: Mon Jan 23 17:49:01 2006
New Revision: 120

Modified:
   trunk/cl-irc/protocol.lisp
Log:
Untabify for consistent indenting accross all systems and editors.


Modified: trunk/cl-irc/protocol.lisp
==============================================================================
--- trunk/cl-irc/protocol.lisp	(original)
+++ trunk/cl-irc/protocol.lisp	Mon Jan 23 17:49:01 2006
@@ -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