Commit 9d4c9a86 authored by pfdietz's avatar pfdietz
Browse files

Two more test cases for abcl

parent 4024dcc4
......@@ -7194,3 +7194,29 @@ Broken at C::WT-C-INLINE-LOC.
0)))
10)
0)
(deftest misc.378
(funcall
(compile
nil
'(lambda (c)
(declare (optimize (speed 1) (space 0) (safety 1) (debug 3)
(compilation-speed 2)))
(dotimes (iv4 3 0)
(restart-case (round (multiple-value-bind (*s6*) (cons c 0)
(car *s6*)))))))
1)
0)
(deftest misc.379
(funcall
(compile
nil
'(lambda ()
(declare (optimize (speed 2) (space 0) (safety 2) (debug 2)
(compilation-speed 1)))
(values (floor 0) (multiple-value-bind (v3) (cons 0 0) (car v3))))))
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