[cl-irc-devel] Re: [Cl-irc-cvs] r120 - trunk/cl-irc

[Erik Huelsmann]

Sorry for the noise: this was a test commit message to see if I configured
the commit mailer program correctly.

It looks like I did...


bye,

Erik.

> --- Ursprüngliche Nachricht ---
> Von: ehuelsmann at common-lisp.net
> An: cl-irc-cvs at common-lisp.net
> Betreff: [Cl-irc-cvs] r120 - trunk/cl-irc
> Datum: Tue, 24 Jan 2006 15:36:49 -0600 (CST)
> 
> 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)))
> _______________________________________________
> Cl-irc-cvs mailing list
> Cl-irc-cvs at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/cl-irc-cvs
> 

-- 
DSL-Aktion wegen großer Nachfrage bis 28.2.2006 verlängert:
GMX DSL-Flatrate 1 Jahr kostenlos* http://www.gmx.net/de/go/dsl