From f16c98558bc3b8760b64bd7df5e254b459b5e8f7 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 16 May 2004 03:06:15 +0000 Subject: [PATCH] Another sbcl bug --- ansi-tests/misc.lsp | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index fab0e9c2..8eae6260 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -6891,3 +6891,34 @@ Broken at C::WT-C-INLINE-LOC. 21956127 524275646496 101890987 8762 -88607922426 -55959 2177 147174 38469170) 11751) + +;;; The value #<unknown pointer object, widetag=#x29 {A295F27}> +;;; is not of type RATIONAL. + +(deftest misc.367 + (funcall + (compile + nil + '(lambda (a b) + (declare (type (integer 11557968 115977463) a)) + (declare (type (integer -89510 -20616) b)) + (declare (optimize (speed 2) (space 3) (safety 1) + (debug 0) (compilation-speed 1))) + (rational + (flet ((%f17 (f17-1 f17-2) 0)) + (%f17 + (numerator + (%f17 + (denominator + (catch 'ct5 + (apply (constantly 0) + 0 + (unwind-protect + (catch 'ct2 (throw 'ct5 (progn (%f17 a b) a)))) + nil))) + 0)) + (%f17 0 a)))))) + 112475717 -25829) + 0) + + -- GitLab