From: Nikodemus Siivola Date: Sat, 17 May 2008 20:05:09 +0000 (+0000) Subject: 1.0.16.37: fix bug #206 -- SB-FLUID build works once more X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=ed891a4fd882d1b9fe066ab14bcf2107aea95baa;p=sbcl.git 1.0.16.37: fix bug #206 -- SB-FLUID build works once more * Thanks to Sidney Markowitz for tracking down the bad INLINE declamations. --- diff --git a/BUGS b/BUGS index de89345..7f62d6c 100644 --- a/BUGS +++ b/BUGS @@ -556,11 +556,6 @@ WORKAROUND: c. The cross-compiler cannot inline functions defined in a non-null lexical environment. -206: ":SB-FLUID feature broken" - (reported by Antonio Martinez-Shotton sbcl-devel 2002-10-07) - Enabling :SB-FLUID in the target-features list in sbcl-0.7.8 breaks - the build. - 207: "poorly distributed SXHASH results for compound data" SBCL's SXHASH could probably try a little harder. ANSI: "the intent is that an implementation should make a good-faith diff --git a/NEWS b/NEWS index a00bc78..d496869 100644 --- a/NEWS +++ b/NEWS @@ -23,6 +23,8 @@ changes in sbcl-1.0.17 relative to 1.0.16: in normal SPEED policies. * optimization: NCONC no longer needs to heap cons its &REST list in normal SPEED policies. + * bug fix: SB-FLUID build feature no longer breaks the build. (thanks + to Sidney Markowitz) * bug fix: UNION and NUNION work with :TEST-NOT once more, regression since 1.0.9.1. (thanks to Eric Marsden) * bug fix: result of MAKE-ARRAY can be stack allocated - regression diff --git a/src/code/bignum.lisp b/src/code/bignum.lisp index 5ee6b3a..f96890a 100644 --- a/src/code/bignum.lisp +++ b/src/code/bignum.lisp @@ -194,7 +194,7 @@ (%lognot digit)) ;;; Each of these does the digit-size unsigned op. -#!-sb-fluid (declaim (inline %logand %logior %logxor)) +(declaim (inline %logand %logior %logxor)) (defun %logand (a b) (declare (type bignum-element-type a b)) (logand a b)) @@ -270,7 +270,7 @@ ;;; These take two digit-size quantities and compare or contrast them ;;; without wasting time with incorrect type checking. -#!-sb-fluid (declaim (inline %digit-compare %digit-greater)) +(declaim (inline %digit-compare %digit-greater)) (defun %digit-compare (x y) (= x y)) (defun %digit-greater (x y) diff --git a/src/code/target-sxhash.lisp b/src/code/target-sxhash.lisp index c64ef1a..fe8fc8a 100644 --- a/src/code/target-sxhash.lisp +++ b/src/code/target-sxhash.lisp @@ -89,7 +89,7 @@ ;;;; for some more ;;;; information). -#!-sb-fluid (declaim (inline %sxhash-substring)) +(declaim (inline %sxhash-substring)) (defun %sxhash-substring (string &optional (count (length string))) ;; FIXME: As in MIX above, we wouldn't need (SAFETY 0) here if the ;; cross-compiler were smarter about ASH, but we need it for diff --git a/version.lisp-expr b/version.lisp-expr index da3f078..112f000 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.16.36" +"1.0.16.37"