diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index fab0e9c214bba4a92b5ac62a8e1cbb1b8c57e489..8eae6260b276043112bc1a981ee5068938580cee 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) + +