From: Richard M K. <kr...@us...> - 2009-02-03 20:22:11
|
Update of /cvsroot/sbcl/sbcl/src/code In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv29985/src/code Modified Files: full-eval.lisp Log Message: 1.0.25.7: Muffle style-warnings around lambda list parsing in the interpeter. Index: full-eval.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/full-eval.lisp,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- full-eval.lisp 8 Jul 2008 21:31:53 -0000 1.4 +++ full-eval.lisp 3 Feb 2009 20:22:04 -0000 1.5 @@ -279,7 +279,8 @@ (defun parse-arguments (arguments lambda-list) (multiple-value-bind (required optional rest-p rest keyword-p keyword allow-other-keys-p aux-p aux) - (sb!int:parse-lambda-list lambda-list) + (handler-bind ((style-warning #'muffle-warning)) + (sb!int:parse-lambda-list lambda-list)) (let* ((original-arguments arguments) (arguments-present (length arguments)) (required-length (length required)) |