[cl-irc-cvs] r241 - trunk

[jdanjou at common-lisp.net]

Author: jdanjou
Date: Sun Jan 27 07:58:21 2013
New Revision: 241

Log:
Fix typo for `find-dcc-ctcp-message-class'

Signed-off-by: Julien Danjou <julien at danjou.info>

Modified:
   trunk/parse-message.lisp

Modified: trunk/parse-message.lisp
==============================================================================
--- trunk/parse-message.lisp	Sat Jan 26 09:05:25 2013	(r240)
+++ trunk/parse-message.lisp	Sun Jan 27 07:58:21 2013	(r241)
@@ -226,7 +226,7 @@
   (let* ((class 'dcc-privmsg-message)
          (ctcp (ctcp-message-type string)))
     (when ctcp
-      (setf class (find-dcc-ctcp-message class ctcp)))
+      (setf class (find-dcc-ctcp-message-class ctcp)))
     (let ((instance (make-instance class
                                    :arguments (list string)
                                    :connection nil