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