This test case stopped failing after 39122eaee21ac78bbfe33b3e933dd23cbdaf9a93, but
(progn
(declaim (special *s*))
(defun f1 (a b)
(progn
(tagbody
(ash (catch 'ct7 0)
(flet ((%f8 (f8-2 f8-3 &key (key1 (progv '(*s*) (list 0) (go tag5)))) f8-2)) (logand (%f8 0 (go tag5)) (%f8 b 0))))
tag5)
0)))
from https://bugs.launchpad.net/sbcl/+bug/1722840 still fails
This test case stopped failing after 39122eaee21ac78 bbfe33b3e933dd2 3cbdaf9a93, but
f8-2) )
(logand (%f8 0 (go tag5)) (%f8 b 0)))) /bugs.launchpad .net/sbcl/ +bug/1722840 still fails
(progn
(declaim (special *s*))
(defun f1 (a b)
(progn
(tagbody
(ash (catch 'ct7 0)
(flet ((%f8 (f8-2 f8-3 &key (key1 (progv '(*s*) (list 0) (go tag5))))
tag5)
0)))
from https:/