From ehuelsmann at common-lisp.net  Thu Jun  1 21:48:50 2006
From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net)
Date: Thu,  1 Jun 2006 17:48:50 -0400 (EDT)
Subject: [cl-irc-cvs] r162 - trunk
Message-ID: <20060601214850.C7A4F67001@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)))


From ehuelsmann at common-lisp.net  Mon Jun 19 19:05:54 2006
From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net)
Date: Mon, 19 Jun 2006 15:05:54 -0400 (EDT)
Subject: [cl-irc-cvs] r163 - trunk
Message-ID: <20060619190554.F23D64713E@common-lisp.net>

Author: ehuelsmann
Date: Mon Jun 19 15:05:53 2006
New Revision: 163

Modified:
   trunk/protocol.lisp
Log:
Fix type quoting bug reported by rpgoldman at real-time dot com.

Modified: trunk/protocol.lisp
==============================================================================
--- trunk/protocol.lisp	(original)
+++ trunk/protocol.lisp	Mon Jun 19 15:05:53 2006
@@ -509,7 +509,7 @@
     :initarg :visibility
     :accessor visibility
     :initform nil
-    :type '(member nil :public :private :secret :unknown))
+    :type (member nil :public :private :secret :unknown))
    (users
     :initarg :users
     :accessor users