From 0334c236cd6a76082f6be4d087ffac4d2bc6f388 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Tue, 11 May 2004 01:11:23 +0000 Subject: [PATCH] More sbcl tests --- ansi-tests/misc.lsp | 40 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index ed8bbb71..041a567c 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -6762,3 +6762,43 @@ Broken at C::WT-C-INLINE-LOC. 1 2 3) 0) +;;; sbcl (0.8.10.15) +;;; Wrong return value: SB-KERNEL:*HANDLER-CLUSTERS* +(deftest misc.362 + (funcall + (compile + nil + '(lambda (b g h) + (declare (optimize (speed 3) (space 3) (safety 2) + (debug 2) (compilation-speed 3))) + (catch 'ct5 + (unwind-protect + (labels ((%f15 (f15-1 f15-2 f15-3) + (rational (throw 'ct5 0)))) + (%f15 0 + (apply #'%f15 + 0 + h + (progn + (progv '(*s2* *s5*) (list 0 (%f15 0 g 0)) b) + 0) + nil) + 0)) + (common-lisp:handler-case 0))))) + 1 2 3) + 0) + +;;; Wrong value: NIL +(deftest misc.363 + (funcall + (compile + nil + '(lambda (a) + (declare (type (integer -17286401550789 15753784105886) a)) + (declare (optimize (speed 2) (space 2) (safety 2) + (debug 0) (compilation-speed 3))) + (if (not (>= 0 (shiftf a 110236462073))) + 0 + (elt '(30 101 13 2 10 52 89 57) (min 7 (max 0 a)))))) + -3647332298473) + 57) -- GitLab