From daa1d24e742eaabd0c5ce8af3a591779a85e4d2c Mon Sep 17 00:00:00 2001 From: Nathan Froyd Date: Wed, 19 Dec 2012 23:16:01 -0500 Subject: [PATCH] adjust call to REPLACE inside ADJUST-ARRAY The more information we can provide, the better. --- src/code/array.lisp | 3 +++ 1 file changed, 3 insertions(+) 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)))) -- 1.7.10.4