Make the effect of (defvar foo) local.

* src/eval.c (apply_lambda): Make static.  Remove eval_flag arg.
(Fsetq): Don't check declared_special.
(Fdefun, Fdefmacro): Use Ffunction.
(Fdefvar): Don't set declared_special for (defvar foo).
(FletX): Check locally-special vars.  Only do specbind once.
(Flet): Check locally-special vars.
(Feval): Don't check declared_special.
(funcall_lambda): Check locally-special vars.
* src/lisp.h (apply_lambda): Remove extern declaration.
* src/lread.c (readevalloop): CSE.
* lisp/subr.el (with-lexical-binding): Remove.

1 files changed, 3 insertions, 4 deletions

diff --git a/src/lread.c b/src/lread.c
index 83c94b02e23..d85d146b157 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1767,10 +1767,9 @@ readevalloop (Lisp_Object readcharfun,
      the file's header, or via a buffer-local variable), create an empty
      lexical environment, otherwise, turn off lexical binding.  */
   lex_bound = find_symbol_value (Qlexical_binding);
-  if (NILP (lex_bound) || EQ (lex_bound, Qunbound))
-    specbind (Qinternal_interpreter_environment, Qnil);
-  else
-    specbind (Qinternal_interpreter_environment, Fcons (Qt, Qnil));
+  specbind (Qinternal_interpreter_environment,
+            NILP (lex_bound) || EQ (lex_bound, Qunbound)
+            ? Qnil : Fcons (Qt, Qnil));
 
   GCPRO4 (sourcename, readfun, start, end);