X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdump.lisp;h=4e1255a9a51e98e3682a599ac7d16ff6d6b070a5;hb=a74b0bdb483504f6faddf8089f848f61ed94b92a;hp=9e50e68a41d27d380bf4f2ac329554e0f81ce5d1;hpb=581e3d62de8cb37e13ad9db63e5537c0f962be28;p=sbcl.git

diff --git a/src/compiler/dump.lisp b/src/compiler/dump.lisp
index 9e50e68..4e1255a 100644
--- a/src/compiler/dump.lisp
+++ b/src/compiler/dump.lisp
@@ -709,7 +709,9 @@
 ;;; tables.
 (defun dump-vector (x file)
   (let ((simple-version (if (array-header-p x)
-			    (coerce x 'simple-array)
+			    (coerce x `(simple-array
+					,(array-element-type x)
+					(*)))
 			    x)))
     (typecase simple-version
       (simple-base-string