0.8.17.21:

	* contrib/sb-aclrepl/tests.lisp: Port forward changes from sbcl-amd64
	to test bignums when sb-vm::n-word-bits is 64.

diff --git a/contrib/sb-aclrepl/tests.lisp b/contrib/sb-aclrepl/tests.lisp
index ac725ed..2bf3397 100644 (file)
--- a/contrib/sb-aclrepl/tests.lisp
+++ b/contrib/sb-aclrepl/tests.lisp
@@ -187,9 +187,16 @@
 (def-elements-tests *complex* 2 #(1 2) #((0 . "real") (1 . "imag")))
 (def-elements-tests *ratio* 2 #(22 7)
                #((0 . "numerator") (1 . "denominator")))
-(def-elements-tests *bignum* 2
-  #(2112454933 287445236)
-  #((0 . :HEX32) (1 . :HEX32)))
+(case sb-vm::n-word-bits
+  (32
+   (def-elements-tests *bignum* 2
+     #(2112454933 287445236)
+     #((0 . :HEX32) (1 . :HEX32))))
+  (64
+   (def-elements-tests *bignum* 1
+     #(1234567890123456789)
+     #((0 . :HEX64)))))
+
 (def-elements-tests *vector* 20
                #(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19)
                #(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
@@ -315,10 +322,17 @@
    2 REALLY-LONG-STRUCT-SLOT-NAME -> a simple-string (4) \"defg\""
   nil 2)
 
-(def-display-test *bignum*
-"bignum 1234567890123456789 with 2 32-bit words
+(case sb-vm::n-word-bits
+  (32
+   (def-display-test *bignum*
+       "bignum 1234567890123456789 with 2 32-bit words
    0-> #x7DE98115
-   1-> #x112210F4")
+   1-> #x112210F4"))
+  (64
+   (def-display-test *bignum*
+       "bignum 1234567890123456789 with 1 64-bit word
+   0-> #x112210F47DE98115"
+     )))
 
 (def-display-test *vector*
   "a simple T vector (20)

diff --git a/version.lisp-expr b/version.lisp-expr
index 032a97d..7e2536e 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.17.20"
+"0.8.17.21"