Skip to content
Snippets Groups Projects
Commit f16c9855 authored by pfdietz's avatar pfdietz
Browse files

Another sbcl bug

parent da839153
No related branches found
No related tags found
No related merge requests found
......@@ -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)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment