X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-misc.lisp;h=530782a4e9195aa31c595ec7eb03cfc31d19ba2e;hb=a160917364f85b38dc0826a5e3dcef87e3c4c62c;hp=0bc086e74f89fb40a2095b1c0c682e33c25c7c57;hpb=b9a1b17b079d315c1eec194eb4f93f7d058b24cf;p=sbcl.git

diff --git a/src/code/cross-misc.lisp b/src/code/cross-misc.lisp
index 0bc086e..530782a 100644
--- a/src/code/cross-misc.lisp
+++ b/src/code/cross-misc.lisp
@@ -150,6 +150,10 @@
   (assert (typep array '(simple-array * (*))))
   (values array start end 0))
 
+(defun sb!kernel:%with-array-data/fp (array start end)
+  (assert (typep array '(simple-array * (*))))
+  (values array start end 0))
+
 (defun sb!kernel:signed-byte-32-p (number)
   (typep number '(signed-byte 32)))