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