X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdump.lisp;h=4ca7e8f78394c1c239e20b37aa7c78e855db7432;hb=65a01dae3d437a48e8dd0d051a446245f9e29929;hp=398bfca40e2b46a5c89d3aa237f098df4d0b8516;hpb=69cd16d7335a7f66985752b84f78d18e45f9783e;p=sbcl.git

diff --git a/src/compiler/dump.lisp b/src/compiler/dump.lisp
index 398bfca..4ca7e8f 100644
--- a/src/compiler/dump.lisp
+++ b/src/compiler/dump.lisp
@@ -155,7 +155,7 @@
 	 (dump-byte ',val ,file))
       (error "compiler bug: ~S is not a legal fasload operator." fs))))
 
-;;; Dump a FOP-Code along with an integer argument, choosing the FOP
+;;; Dump a FOP-CODE along with an integer argument, choosing the FOP
 ;;; based on whether the argument will fit in a single byte.
 ;;;
 ;;; FIXME: This, like DUMP-FOP, should be a function with a
@@ -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
@@ -1256,7 +1258,7 @@
   (when (layout-invalid obj)
     (compiler-error "attempt to dump reference to obsolete class: ~S"
 		    (layout-class obj)))
-  (let ((name (sb!xc:class-name (layout-class obj))))
+  (let ((name (classoid-name (layout-classoid obj))))
     (unless name
       (compiler-error "dumping anonymous layout: ~S" obj))
     (dump-fop 'fop-normal-load file)