Changeset 117 for trunk

Timestamp:

01/23/06 23:49:01 (19 years ago)

Author:

Erik Huelsmann

Message:

Untabify for consistent indenting accross all systems and editors.

File:

• trunk/protocol.lisp (modified) (4 diffs)

trunk/protocol.lisp ¶

@@ -269 +269 @@
       #+(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)
@@ -851 +851 @@
     (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)
@@ -871 +871 @@
 (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)
@@ -910 +910 @@
     (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)