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