X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Farray.lisp;h=34de4635071e90a30b03c93640e754e62b47b958;hb=88dab5bc2cb92077bced88729dc95096b3b6a127;hp=60a2f0b3e720e4777c1905742c3e1a0e4b6c7826;hpb=a5b06b8996eb05df67077d14db7d6727372ae735;p=sbcl.git

diff --git a/src/code/array.lisp b/src/code/array.lisp
index 60a2f0b..34de463 100644
--- a/src/code/array.lisp
+++ b/src/code/array.lisp
@@ -979,12 +979,12 @@ of specialized arrays is supported."
                                        initial-element-p))
                    (if (adjustable-array-p array)
                        (set-array-header array new-data new-length
-                                         new-length 0 dimensions nil)
+                                         nil 0 dimensions nil)
                        (let ((new-array
                               (make-array-header
                                sb!vm:simple-array-widetag array-rank)))
                          (set-array-header new-array new-data new-length
-                                           new-length 0 dimensions nil)))))))))))
+                                           nil 0 dimensions nil)))))))))))
 
 
 (defun get-new-fill-pointer (old-array new-array-size fill-pointer)