X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Farray.lisp;h=2b817a3cc76516000383d97108d41b7c77bf2534;hb=2d4a0df3457bcd50916b33d374da592d8776db0a;hp=3993a916068aa8d22fd57afd55878bdab9e3a7b3;hpb=f1407e424f1063203af07d2e61ceef58515a4797;p=sbcl.git

diff --git a/src/code/array.lisp b/src/code/array.lisp
index 3993a91..2b817a3 100644
--- a/src/code/array.lisp
+++ b/src/code/array.lisp
@@ -51,7 +51,9 @@
 
 (defun %data-vector-and-index (array index)
   (if (array-header-p array)
-      (%with-array-data array index nil)
+      (multiple-value-bind (vector index)
+          (%with-array-data array index nil)
+        (values vector index))
       (values array index)))
 
 ;;; It'd waste space to expand copies of error handling in every