From 3e854c7e1b8416a5ce77513a5ff774cc3e00ed9e Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Tue, 11 May 2004 04:33:13 +0000 Subject: [PATCH] Another sbcl bug --- ansi-tests/misc.lsp | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 041a567c..330d0bf7 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) + -- GitLab