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.

diff --git a/NEWS b/NEWS
index 0923c86..cb30fa2 100644 (file)
--- 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 (file)
--- 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*)
 \f
 ;;;; string checker, for catching non-portability early

diff --git a/src/compiler/sset.lisp b/src/compiler/sset.lisp
index 702fb4d..c38239b 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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"