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