0.8.10.28:

	Really fix bug (fixed for ppc in 0.8.7.56) on alpha
	... the use of branch delay slots on the alpha values defaulting
		turned out not to be the only error; in addition,
		s/blt/ble/.
	... now the alpha passes compiler.impure-cload.lisp

diff --git a/NEWS b/NEWS
index 79a7535..3826b23 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -2447,7 +2447,7 @@ changes in sbcl-0.8.11 relative to sbcl-0.8.10:
        for objects of type REAL.  Make it so.
     ** SXHASH is specified (infelicitously) to respect similarity,
        which means that (SXHASH 0.0) must equal (SXHASH -0.0).  Make
-       it so.
+       it so.  (thanks to Markus Ziegler)
 
 planned incompatible changes in 0.8.x:
   * (not done yet, but planned:) When the profiling interface settles

diff --git a/src/compiler/alpha/call.lisp b/src/compiler/alpha/call.lisp
index 79d4c7d..a164718 100644 (file)
--- a/src/compiler/alpha/call.lisp
+++ b/src/compiler/alpha/call.lisp
@@ -306,7 +306,7 @@ default-value-8
                    (tn (tn-ref-tn val)))
                (defaults (cons default-lab tn))
                
-               (inst blt temp default-lab)
+               (inst ble temp default-lab)
                (inst ldl move-temp (* i n-word-bytes) ocfp-tn)
                (inst subq temp (fixnumize 1) temp)
                (store-stack-tn tn move-temp)))

diff --git a/version.lisp-expr b/version.lisp-expr
index 664ea91..29abd55 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".)
-"0.8.10.27"
+"0.8.10.28"