Steel Bank Common Lisp

The branch "master" has been updated in SBCL:
       via  daa1d24e742eaabd0c5ce8af3a591779a85e4d2c (commit)
      from  43c6634142a96e1d1bab2efe1a39cd8234903c41 (commit)

- Log -----------------------------------------------------------------
commit daa1d24e742eaabd0c5ce8af3a591779a85e4d2c
Author: Nathan Froyd <froydnj@...>
Date:   Wed Dec 19 23:16:01 2012 -0500

    adjust call to REPLACE inside ADJUST-ARRAY
    
    The more information we can provide, the better.
---
 src/code/array.lisp |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)

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))))

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL