X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Farray-tran.lisp;h=ee40d894c23ab2bc934d30ef545eaffdb517a6c5;hb=935d6f6a696c2b0bff1c937cef346cb495e41999;hp=fd4e9a99f2daf14bba1a271f1e3c3c87720e7387;hpb=d59fb3b0953c8d14427b60f949a0e567a8b79fe0;p=sbcl.git

diff --git a/src/compiler/array-tran.lisp b/src/compiler/array-tran.lisp
index fd4e9a9..ee40d89 100644
--- a/src/compiler/array-tran.lisp
+++ b/src/compiler/array-tran.lisp
@@ -543,7 +543,7 @@
 ;;; compile-time or we are generating unsafe code, don't bother with
 ;;; the VOP.
 (deftransform %check-bound ((array dimension index) * * :node node)
-  (cond ((policy node (and (> speed safety) (= safety 0)))
+  (cond ((policy node (= insert-array-bounds-checks 0))
          'index)
         ((not (constant-lvar-p dimension))
          (give-up-ir1-transform))