X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-defstruct.lisp;h=33dc00d359210c34b90d164375e78e22af8b05f8;hb=78fa16bf55be44cc16845be84d98023e83fb14bc;hp=267e58b2e3f37acf14d002e70b7be0b1242f67a7;hpb=77d94d36bcfd3d5eea73ad51e6ee621a8938f995;p=sbcl.git

diff --git a/src/code/target-defstruct.lisp b/src/code/target-defstruct.lisp
index 267e58b..33dc00d 100644
--- a/src/code/target-defstruct.lisp
+++ b/src/code/target-defstruct.lisp
@@ -395,8 +395,8 @@
       (when raw-index
 	(let* ((data (%instance-ref structure raw-index))
 	       (raw-len (length data))
-	       (new (make-array raw-len :element-type '(unsigned-byte 32))))
-	  (declare (type (simple-array (unsigned-byte 32) (*)) data))
+	       (new (make-array raw-len :element-type 'sb!vm::word)))
+	  (declare (type (simple-array sb!vm::word (*)) data))
 	  (setf (%instance-ref res raw-index) new)
 	  (dotimes (i raw-len)
 	    (setf (aref new i) (aref data i))))))