Comment 3 for bug 1661911

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