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

[Erik Huelsmann]

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

Modified Files:
	parse-message.lisp 
Log Message:
Revert accidental commit.
Date: Mon Mar 21 19:15:52 2005
Author: ehuelsmann

Index: cl-irc/parse-message.lisp
diff -u cl-irc/parse-message.lisp:1.5 cl-irc/parse-message.lisp:1.6
--- cl-irc/parse-message.lisp:1.5	Mon Mar 21 19:14:32 2005
+++ cl-irc/parse-message.lisp	Mon Mar 21 19:15:52 2005
@@ -1,4 +1,4 @@
-;;;; $Id: parse-message.lisp,v 1.5 2005/03/21 18:14:32 ehuelsmann Exp $
+;;;; $Id: parse-message.lisp,v 1.6 2005/03/21 18:15:52 ehuelsmann Exp $
 ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/parse-message.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -151,12 +151,12 @@
           (ctcp (ctcp-message-type trailing-argument)))
       (when command
         (cond
-;;           (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)))
+          (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)))
           ((numeric-reply-p command)
            (progn
              (setf command (find-reply-name (parse-integer command)))