Expr.listLit? fails for long literal lists

Prerequisites

Please put an X between the brackets as you perform the following steps:

• Check that your issue is not already filed:
  https://github.com/leanprover/lean4/issues
• Reduce the issue to a minimal, self-contained, reproducible test case.
  Avoid dependencies to Mathlib or Batteries.
• Test your test case against the latest nightly release, for example on
  https://live.lean-lang.org/#project=lean-nightly
  (You can also use the settings there to switch to “Lean nightly”)

Description

Expr.listLit? behaves as expected for literal lists of length <= 32, but fails for larger literal lists. In particular, for list literals of length 33, it returns none.

import Lean

elab "#test" t:term : command => do
  let e ← Lean.Elab.Command.liftTermElabM do
    Lean.Elab.Term.elabTerm t none
  if let .none := e.listLit? then
    throwError "Not a list literal"

#test [1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] -- works
#test [1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1] -- fails

Context

#lean4 > Extracting entries from a literal list @ 💬

Steps to Reproduce

1. Code as above

Expected behavior: Both tests above succeed.

Actual behavior: The first test succeeds and the second fails.

Versions

[Output of #version or #eval Lean.versionString]
[OS version, if not using live.lean-lang.org.]

Additional Information

[Additional information, configuration or data that might be necessary to reproduce the issue]

Impact

Add 👍 to issues you consider important. If others are impacted by this issue, please ask them to add 👍 to it.

Run the standalone Lean reproduction from the issue and inspect the implementation of Expr.listLit?. Verify the behavior at the 32- and 33-element boundaries; done means both example list literals are recognized successfully.