cl-irc-cvs

Download

cl-irc-cvs@common-lisp.net

June 2006

1 participants
2 discussions

[cl-irc-cvs] r163 - trunk
by ehuelsmann＠common-lisp.net 19 Jun '06

19 Jun '06

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

1 0

[cl-irc-cvs] r162 - trunk
by ehuelsmann＠common-lisp.net 01 Jun '06

01 Jun '06

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

1 0