[cl-irc-cvs] r198 - trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue Apr 24 18:02:47 2007
New Revision: 198

Modified:
   trunk/parse-message.lisp
Log:
r197 followup: disable (yet) unimplemented part (ctcp messages).

Modified: trunk/parse-message.lisp
==============================================================================
--- trunk/parse-message.lisp	(original)
+++ trunk/parse-message.lisp	Tue Apr 24 18:02:47 2007
@@ -226,13 +226,13 @@
 (defun create-dcc-message (string)
   (let* ((class 'dcc-privmsg-message)
          (ctcp (ctcp-message-type string)))
-    (when ctcp
-      (setf class (find-dcc-ctcp-message class ctcp)))
+;;    (when ctcp
+;;      (setf class (find-dcc-ctcp-message class ctcp)))
     (let ((instance (make-instance class
                                    :arguments (list string)
                                    :connection nil
                                    :received-time (get-universal-time)
                                    :raw-message-string string)))
-      (when ctcp
-        (setf (ctcp-command instance) ctcp))
+;;      (when ctcp
+;;        (setf (ctcp-command instance) ctcp))
       instance)))