From: Nathan Froyd <froydnj@gmail.com>
Date: Thu, 20 Dec 2012 04:16:01 +0000 (-0500)
Subject: adjust call to REPLACE inside ADJUST-ARRAY
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=daa1d24e742eaabd0c5ce8af3a591779a85e4d2c;p=sbcl.git

adjust call to REPLACE inside ADJUST-ARRAY

The more information we can provide, the better.
---

diff --git a/src/code/array.lisp b/src/code/array.lisp
index 90b7a99..c700d7b 100644
--- a/src/code/array.lisp
+++ b/src/code/array.lisp
@@ -960,7 +960,10 @@ of specialized arrays is supported."
                                dimensions new-length element-type
                                initial-contents initial-contents-p
                                initial-element initial-element-p))
+                        ;; Provide :END1 to avoid full call to LENGTH
+                        ;; inside REPLACE.
                         (replace new-data old-data
+                                 :end1 new-length
                                  :start2 old-start :end2 old-end))
                        (t (setf new-data
                                 (shrink-vector old-data new-length))))