bug#34233: 27.0.50; defvar in comment

[Michael Heerdegen]

Lars Ingebrigtsen <larsi@gnus.org> writes:

> Sebastian Miele <sebastian.miele@gmail.com> writes:
>
> > ;; Start ./src/emacs -Q, put this into *scratch*, do not remove this
> > ;; "(defvar x)" in this comment, and C-x C-e the following two
> > ;; expressions in turn:
> > ;;
> > (setq lexical-binding t)
> > (let ((x 42)) (lambda () x))
> > ;;
> > ;; Value: (closure (x t) nil x)
> > ;; Expected: (closure ((x . 42) t) nil x)
>
> I can confirm that this bug is still present.
>
> Stefan, do you know what's going on here?  That a commented-out (defvar)
> before the eval-ed form has any effect is rather surprising...

This is `eval-sexp-add-defvars' not checking if defvars are really code.

Michael.