[cl-irc-cvs] r226 - trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Sep 23 07:32:21 2012
New Revision: 226

Log:
Use HANDLER-CASE where HANDLER-CASE was meant to be used.

Modified:
   trunk/protocol.lisp

Modified: trunk/protocol.lisp
==============================================================================
--- trunk/protocol.lisp	Sun Sep 23 04:35:53 2012	(r225)
+++ trunk/protocol.lisp	Sun Sep 23 07:32:21 2012	(r226)
@@ -344,7 +344,7 @@
 
 (defgeneric read-message-loop (connection))
 (defmethod read-message-loop (connection)
-  (handler-bind
+  (handler-case
       (loop while (read-message connection))
     (end-of-file () nil)))