[Cl-irc-cvs] CVS update: cl-irc/parse-message.lisp

[Brian Mastenbrook]

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