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

Another sbcl test.

parent 945fbb6c
No related branches found
No related tags found
No related merge requests found
......@@ -1983,3 +1983,24 @@
(%f6 -2 -108626545 (%f4))))))))))))
-6)
87246015)
(deftest misc.153
(funcall
(compile nil
'(lambda (a)
(if (logbitp 3
(case -2
((-96879 -1035 -57680 -106404 -94516 -125088)
(unwind-protect 90309179))
((-20811 -86901 -9368 -98520 -71594)
(let ((v9 (unwind-protect 136707)))
(block b3
(setq v9
(let ((v4 (return-from b3 v9)))
(- (ignore-errors (return-from b3 v4))))))))
(t -50)))
-20343
a)))
0)
-20343)
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