diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 041a567ced4ff368444646b98028147c830bb27e..330d0bf79850d9989c0a1a1e8ab6ea65154bc0c1 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -6802,3 +6802,13 @@ Broken at C::WT-C-INLINE-LOC. (elt '(30 101 13 2 10 52 89 57) (min 7 (max 0 a)))))) -3647332298473) 57) + +;;; "full call to SB-KERNEL:DATA-VECTOR-REF" +(deftest misc.364 + (dotimes (iv1 2 0) + (if (> iv1 iv1) + (svref #(2002 3778 1998 3466 530 3279 2033 521 4085) + (min 8 (max 0 iv1))) + 0)) + 0) +