Commit f7967a6d authored by pfdietz's avatar pfdietz
Browse files

Another abcl bug (0 is not of type list)

parent 909e697a
......@@ -7158,4 +7158,32 @@ Broken at C::WT-C-INLINE-LOC.
12851164 182468232812 -2243976802 309299185674 2538150 1855615980)
0)
\ No newline at end of file
(deftest misc.376
(funcall
(compile
nil
'(lambda () ; (a b c d e f g h i)
#|
(declare (type (integer -3780481450018 4128865857054) a))
(declare (type (integer -15 7920255) b))
(declare (type (integer -2 1) c))
(declare (type (integer -6 157) d))
(declare (type (integer -3022 3523491) e))
(declare (type (integer -3 18632748) f))
(declare (type (integer -4 149) g))
(declare (type (integer -22 -1) h))
(declare (type (integer -176782576526 -1863239307) i))
(declare (ignorable a b c d e f g h i))
|#
(declare (optimize (speed 1) (space 1) (safety 2) (debug 1)
(compilation-speed 0)))
(dotimes (iv4 3
(multiple-value-bind (*s6*) (cons 0 0)
(progn (cdr *s6*) 0)))
(floor (rational (let ((*s2*
(rational (common-lisp:handler-case 0))))
0))))))
)
0)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment