From: Richard M Kreuter <kreuter@users.sourceforge.net>
Date: Tue, 3 Feb 2009 20:22:04 +0000 (+0000)
Subject: 1.0.25.7: Muffle style-warnings around lambda list parsing in the interpeter.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=ebe41eb91248cbe3accc890929ddd21827a933d0;p=sbcl.git

1.0.25.7: Muffle style-warnings around lambda list parsing in the interpeter.
---

diff --git a/src/code/full-eval.lisp b/src/code/full-eval.lisp
index c93a320..0f04a0f 100644
--- a/src/code/full-eval.lisp
+++ b/src/code/full-eval.lisp
@@ -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))
diff --git a/version.lisp-expr b/version.lisp-expr
index a28a261..c35cd1c 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.25.6"
+"1.0.25.7"