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)))