X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fdump.impure-cload.lisp;h=a9d77e7102ee49a9e31877ba5336ac71e8b6781a;hb=10d2c05ea44ca0837091434fe2223c0c31687615;hp=5a468f2666b123c20109790ddf4f81a494a43938;hpb=fb91e1987cc40f3f698f2972d0de50426ec3086f;p=sbcl.git

diff --git a/tests/dump.impure-cload.lisp b/tests/dump.impure-cload.lisp
index 5a468f2..a9d77e7 100644
--- a/tests/dump.impure-cload.lisp
+++ b/tests/dump.impure-cload.lisp
@@ -59,4 +59,17 @@
 
 (defparameter *path* #p"MY-LOGICAL-HOST:FOO;BAR.LISP")
 
+;;; Non-SIMPLE-ARRAY VECTORs should be dumpable, though they can lose
+;;; their complex attributes.
+
+(defparameter *string* #.(make-array 3 :initial-element #\a
+				       :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