From: Nikodemus S. <de...@us...> - 2010-11-19 10:57:39
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv30692/src/code Modified Files: defboot.lisp Log Message: 1.0.44.32: better error reporting for malformed RESTART-CASE clauses Detect missing lambda-lists. ...and missing -o to canonicalize-whitespace. Index: defboot.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/defboot.lisp,v retrieving revision 1.74 retrieving revision 1.75 diff -u -d -r1.74 -r1.75 --- defboot.lisp 30 Aug 2010 11:13:18 -0000 1.74 +++ defboot.lisp 19 Nov 2010 10:57:30 -0000 1.75 @@ -526,6 +526,9 @@ key-vars keywords) ,@forms)))))) (mapcar (lambda (clause) + (unless (listp (second clause)) + (error "Malformed ~S clause, no lambda-list:~% ~S" + 'restart-case clause)) (with-keyword-pairs ((report interactive test &rest forms) (cddr clause)) |