Comment 1 for bug 1811251

(defun test ()
  (declare (optimize (debug 1) speed (safety 0)))
  (block b8
    (return-from b8
      (let ((lv3 0)
            *)
        (boole boole-1 lv3
               (the integer
                    (catch 'ct4
                      (let ((x (list 1)))
                        (declare (dynamic-extent x))
                        (return-from b8 (eval x))))))))))