X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ffndb.lisp;h=c35e93a4908a062dfcb4c5b0826cb911459e13e5;hb=02f7f85a6554b1ec233e9a515c4c511fe092565e;hp=30fc30b73a8edf62578328510ea8c0f3d1862021;hpb=8de43b3a81c0ad229a62289c712f72c09fe4d9f1;p=sbcl.git diff --git a/src/compiler/fndb.lisp b/src/compiler/fndb.lisp index 30fc30b..c35e93a 100644 --- a/src/compiler/fndb.lisp +++ b/src/compiler/fndb.lisp @@ -1473,11 +1473,11 @@ (movable foldable flushable dx-safe)) (defknown data-vector-ref (simple-array index) t (foldable unsafely-flushable explicit-check always-translatable)) -(defknown data-vector-ref-with-offset (simple-array index fixnum) t +(defknown data-vector-ref-with-offset (simple-array fixnum fixnum) t (foldable unsafely-flushable explicit-check always-translatable)) (defknown data-vector-set (array index t) t (explicit-check always-translatable)) -(defknown data-vector-set-with-offset (array index fixnum t) t +(defknown data-vector-set-with-offset (array fixnum fixnum t) t (explicit-check always-translatable)) (defknown hairy-data-vector-ref (array index) t (foldable explicit-check))