X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Farray.lisp;h=3a9d70305373e09bbaff1e2fa7ea1b403605fd16;hb=26265f96389d737bf2e1e4c787ea8943ae499944;hp=817bdb783c80e0e68733a28ea48910598024f6ff;hpb=47b7637b3e7c012c6dfa754e107c9bc7d74e73bd;p=sbcl.git

diff --git a/src/code/array.lisp b/src/code/array.lisp
index 817bdb7..3a9d703 100644
--- a/src/code/array.lisp
+++ b/src/code/array.lisp
@@ -46,8 +46,11 @@
            (fixnum index))
   (%check-bound array bound index))
 
+(defun %with-array-data/fp (array start end)
+  (%with-array-data-macro array start end :check-bounds t :check-fill-pointer t))
+
 (defun %with-array-data (array start end)
-  (%with-array-data-macro array start end :fail-inline? t))
+  (%with-array-data-macro array start end :check-bounds t :check-fill-pointer nil))
 
 (defun %data-vector-and-index (array index)
   (if (array-header-p array)
@@ -55,14 +58,6 @@
           (%with-array-data array index nil)
         (values vector index))
       (values array index)))
-
-;;; It'd waste space to expand copies of error handling in every
-;;; inline %WITH-ARRAY-DATA, so we have them call this function
-;;; instead. This is just a wrapper which is known never to return.
-(defun failed-%with-array-data (array start end)
-  (declare (notinline %with-array-data))
-  (%with-array-data array start end)
-  (bug "called FAILED-%WITH-ARRAY-DATA with valid array parameters?"))
 
 ;;;; MAKE-ARRAY
 (eval-when (:compile-toplevel :execute)