From ebe41eb91248cbe3accc890929ddd21827a933d0 Mon Sep 17 00:00:00 2001
From: Richard M Kreuter <kreuter@users.sourceforge.net>
Date: Tue, 3 Feb 2009 20:22:04 +0000
Subject: [PATCH] 1.0.25.7: Muffle style-warnings around lambda list parsing
in the interpeter.
---
src/code/full-eval.lisp | 3 ++-
version.lisp-expr | 2 +-
2 files changed, 3 insertions(+), 2 deletions(-)
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"
--
1.7.10.4