Comment 2 for bug 1811251

(defun test ()
  (declare (optimize (debug 1) speed (safety 0)))
  (block b8
    (return-from b8
      (let ((lv3 333333)
            *)
        (boole boole-1 lv3

               (the integer
                    (catch 'ct4
                      (let ((x (list 1)))
                        (declare (dynamic-extent x))
                        (if *
                            (return-from b8 (eval x)))))))))))

ends up looping forever.