(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))
;;; 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"