From 279d26b1a121e64531764f3a4f4c96f7389f3098 Mon Sep 17 00:00:00 2001 From: Juho Snellman Date: Wed, 11 Apr 2007 20:57:13 +0000 Subject: [PATCH] 1.0.4.67: Minor cleanups * Make PCL aware of SB-EXT:MUFFLE-CONDITIONS declaration. Suppresses bogus warning when that declaration is used in a method body. Reported by Kevin Reid on sbcl-devel 2007-04-09. * Fix a typo in a variable declamation, pointed out by Peter Graves. * Add some eval-whenage around the DEFCONSTANT for +SSET-REHASH-THRESHOLD+, since it's used in the same file inside a #.. This should restore building with clisp to the normal level of brokenness. --- NEWS | 2 ++ src/cold/shebang.lisp | 2 +- src/compiler/sset.lisp | 3 ++- src/pcl/vector.lisp | 1 + version.lisp-expr | 2 +- 5 files changed, 7 insertions(+), 3 deletions(-) diff --git a/NEWS b/NEWS index 0923c86..cb30fa2 100644 --- a/NEWS +++ b/NEWS @@ -43,6 +43,8 @@ changes in sbcl-1.0.5 relative to sbcl-1.0.4: interrupt safe. * bug fix: binding *BREAK-ON-SIGNALS* to a value that is not a type specifier no longer causes infinite recursion. + * bug fix: SB-EXT:MUFFLE-CONDITIONS declarations no longer trigger a + bogus warning in DEFMETHOD bodies (reported by Kevin Reid) * improvement: the x86-64/darwin port now passes all tests and should be considered non-experimental. diff --git a/src/cold/shebang.lisp b/src/cold/shebang.lisp index 753a877..a70feec 100644 --- a/src/cold/shebang.lisp +++ b/src/cold/shebang.lisp @@ -70,7 +70,7 @@ ;;; for that). For an explanation of what it really does, look ;;; elsewhere. (export '*shebang-backend-subfeatures*) -(declaim (type list *shebang-features*)) +(declaim (type list *shebang-backend-subfeatures*)) (defvar *shebang-backend-subfeatures*) ;;;; string checker, for catching non-portability early diff --git a/src/compiler/sset.lisp b/src/compiler/sset.lisp index 702fb4d..c38239b 100644 --- a/src/compiler/sset.lisp +++ b/src/compiler/sset.lisp @@ -95,7 +95,8 @@ ;;; Rehash the sset when the proportion of free cells in the set is ;;; lower than this. -(defconstant +sset-rehash-threshold+ 1/4) +(eval-when (:compile-toplevel :load-toplevel :execute) + (defconstant +sset-rehash-threshold+ 1/4)) ;;; Destructively add ELEMENT to SET. If ELEMENT was not in the set, ;;; then we return true, otherwise we return false. diff --git a/src/pcl/vector.lisp b/src/pcl/vector.lisp index 2b4f2d2..cc5ef22 100644 --- a/src/pcl/vector.lisp +++ b/src/pcl/vector.lisp @@ -811,6 +811,7 @@ %method-lambda-list optimize ftype + muffle-conditions inline notinline)) diff --git a/version.lisp-expr b/version.lisp-expr index 558c78e..6bf3bca 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.4.66" +"1.0.4.67" -- 1.7.10.4