Update of /project/cl-irc/cvsroot/cl-irc In directory common-lisp.net:/tmp/cvs-serv5216

Modified Files: parse-message.lisp Log Message: Disable irc-error-reply-p for now

Date: Fri May 21 14:56:10 2004 Author: bmastenbrook

Index: cl-irc/parse-message.lisp diff -u cl-irc/parse-message.lisp:1.2 cl-irc/parse-message.lisp:1.3 --- cl-irc/parse-message.lisp:1.2 Fri May 21 12:41:58 2004 +++ cl-irc/parse-message.lisp Fri May 21 14:56:10 2004 @@ -1,4 +1,4 @@ -;;;; $Id: parse-message.lisp,v 1.2 2004/05/21 16:41:58 bmastenbrook Exp $ +;;;; $Id: parse-message.lisp,v 1.3 2004/05/21 18:56:10 bmastenbrook Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/parse-message.lisp,v $

;;;; See the LICENSE file for licensing information. @@ -151,7 +151,9 @@ (ctcp (ctcp-message-type trailing-argument))) (when command (cond - ((irc-error-reply-p command) + (nil ;(irc-error-reply-p command) + ;; Disable for now, as it prevents adding hooks for some useful + ;; error types (progn (setf command (find-reply-name (parse-integer command))) (setf class 'irc-error-reply)))