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@common-lisp.net An: cl-irc-cvs@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-streamconnection)) (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@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/cl-irc-cvs