[cl-irc-cvs] r162 - trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Thu Jun  1 17:48:50 2006
New Revision: 162

Modified:
   trunk/utility.lisp
Log:
A new error message for destructuring-arguments for debuggability.

Modified: trunk/utility.lisp
==============================================================================
--- trunk/utility.lisp	(original)
+++ trunk/utility.lisp	Thu Jun  1 17:48:50 2006
@@ -308,7 +308,8 @@
                                   (<= ,%arg-count ,max-entries)))
                      `(> ,min-entries ,%arg-count))
              ;; we want to raise a cl-irc condition here!
-             (error "Unexpected protocol input"))
+             (error (format nil "Unexpected protocol input; provided arguments ~
+~S don't match with expected arguments ~S" ',lambda-list ,%args)))
            ,(bind-req-trail
               req-trail
               `(last ,%args ,(1- (length req-trail)))