X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fdump.impure-cload.lisp;h=a9d77e7102ee49a9e31877ba5336ac71e8b6781a;hb=a260738d7a71680079d972b102b4e4db4e8dc3ae;hp=6017d0b230950298a215ac7c8319b2cefcb90ea1;hpb=53a7501acfbb615bae72b43e3e9a95b9965592ce;p=sbcl.git

diff --git a/tests/dump.impure-cload.lisp b/tests/dump.impure-cload.lisp
index 6017d0b..a9d77e7 100644
--- a/tests/dump.impure-cload.lisp
+++ b/tests/dump.impure-cload.lisp
@@ -66,4 +66,10 @@
 				       :fill-pointer 2
 				       :element-type 'character))
 
+;;; SBCL 0.7.8 incorrectly read high bits of (COMPLEX DOUBLE-FLOAT)
+;;; components as unsigned bytes.
+(defparameter *numbers*
+  '(-1s0 -1f0 -1d0 -1l0
+    #c(-1s0 -1s0) #c(-1f0 -1f0) #c(-1d0 -1d0) #c(-1l0 -1l0)))
+
 (sb-ext:quit :unix-status 104) ; success