remove use of use-interpreter-for-eval

No longer does anything.

Author: Bike

src/core/corePackage.cc

@@ -185,7 +185,6 @@ SYMBOL_EXPORT_SC_(CorePkg, STARserializerArchiveSTAR);
 SYMBOL_EXPORT_SC_(CorePkg, STARterminate_hooksSTAR);
 SYMBOL_EXPORT_SC_(CorePkg, STARtopLevelCommandHookSTAR);
 SYMBOL_EXPORT_SC_(CorePkg, STARuseBuildForkRedirectSTAR);
-SYMBOL_EXPORT_SC_(CorePkg, STARuseInterpreterForEvalSTAR);
 SYMBOL_EXPORT_SC_(CorePkg, STARuseParallelBuildSTAR);
 SYMBOL_EXPORT_SC_(CorePkg, _BANG_unbound_BANG_);
 SYMBOL_EXPORT_SC_(CorePkg, _PLUS_WNOHANG_PLUS_);
@@ -589,7 +588,6 @@ void CoreExposer_O::define_essential_globals(LispPtr lisp) {
   _sym_STARdebugEvalSTAR->defparameter(nil<T_O>());
   _sym_STARdebugStartupSTAR->defparameter(nil<T_O>());
   _sym_STARdebugInterpretedFunctionsSTAR->defparameter(nil<T_O>());
-  _sym_STARuseInterpreterForEvalSTAR->defparameter(nil<T_O>()); // _lisp->_true());
   _sym_STARcxxDocumentationSTAR->defparameter(nil<T_O>());
   _sym__PLUS_class_name_to_lisp_name_PLUS_->defparameter(nil<T_O>());
   _sym__PLUS_type_header_value_map_PLUS_->defparameter(nil<T_O>());

src/core/lisp.cc

@@ -2227,7 +2227,6 @@ bool Lisp::load(int& exitCode) {
         startup_functions_invoke(NULL);
       } else {
         Pathname_sp initPathname = gc::As<Pathname_sp>(_sym_STARcommandLineImageSTAR->symbolValue());
-        DynamicScopeManager scope(_sym_STARuseInterpreterForEvalSTAR, _lisp->_true());
         if (!global_options->_SilentStartup) {
           printf("Loading image %s\n", _rep_(initPathname).c_str());
         }

src/lisp/kernel/clos/combin.lisp

@@ -35,8 +35,7 @@
 
 (defun emf-maybe-compile (form)
   (if (or *avoid-compiling* (not cmp:*cleavir-compile-hook*))
-      (let ((core:*use-interpreter-for-eval* t))
-        (coerce form 'function))
+      (coerce form 'function)
       (let ((*avoid-compiling* t))
         (compile nil form))))
 

src/lisp/kernel/clos/static-gfs/change-class.lisp

@@ -137,8 +137,7 @@
   (clos:set-funcallable-instance-function
    changer
    #+(or)
-   (let ((core:*use-interpreter-for-eval* t)
-         (cmp:*cleavir-compile-hook* nil))
+   (let ((cmp:*cleavir-compile-hook* nil))
      (coerce (generate-class-changer-function changer) 'function))
    ;;#+(or)
    (error "BUG: No suitable compiler yet")))

src/lisp/kernel/clos/static-gfs/compute-constructor.lisp

@@ -15,8 +15,7 @@
        (clos:finalize-inheritance class))
      ;; bclasp-compile because cclasp is full of make-instance
      ;;#+(or)
-     (let ((core:*use-interpreter-for-eval* t)
-           (cmp:*cleavir-compile-hook* nil))
+     (let ((cmp:*cleavir-compile-hook* nil))
        (coerce (constructor-form class class-form keys) 'function))
      #+(or)
      (cmp:bclasp-compile nil (constructor-form class class-form keys)))))

src/lisp/kernel/clos/static-gfs/reinitialize-instance.lisp

@@ -98,8 +98,7 @@
   (clos:set-funcallable-instance-function
    reinitializer
    #+(or)
-   (let ((core:*use-interpreter-for-eval* t)
-         (cmp:*cleavir-compile-hook* nil))
+   (let ((cmp:*cleavir-compile-hook* nil))
      (coerce (generate-reinitializer-function reinitializer) 'function))
    ;;#+(or)
    (error "BUG: No suitable compiler yet")))

src/lisp/kernel/lsp/top-hook.lisp

@@ -29,22 +29,21 @@
 (defun sys::standard-toplevel ()
   (ext:lock-package "CORE")
 
-  (let ((core:*use-interpreter-for-eval* nil))
-    #-staging (when (ext:getenv "CLASP_AUTOCOMPILATION")
-                (funcall 'ext:start-autocompilation))
-    (case (core:startup-type)
-      ((:snapshot-file :embedded-snapshot)
-       (sys::load-foreign-libraries))
-      (otherwise
-       (core:maybe-load-clasprc)
-       (sys::load-extensions)))
-    (sys::call-initialize-hooks)
-    (unwind-protect
-        (progn
-          (core:process-command-line-load-eval-sequence)
-          (if (core:is-interactive-lisp)
-              (core:top-level)
-              (core:exit 0)))
-      (sys::call-terminate-hooks))))
+  #-staging (when (ext:getenv "CLASP_AUTOCOMPILATION")
+              (funcall 'ext:start-autocompilation))
+  (case (core:startup-type)
+    ((:snapshot-file :embedded-snapshot)
+     (sys::load-foreign-libraries))
+    (otherwise
+     (core:maybe-load-clasprc)
+     (sys::load-extensions)))
+  (sys::call-initialize-hooks)
+  (unwind-protect
+       (progn
+         (core:process-command-line-load-eval-sequence)
+         (if (core:is-interactive-lisp)
+             (core:top-level)
+             (core:exit 0)))
+    (sys::call-terminate-hooks)))
 
 (setf ext:*toplevel-hook* 'sys::standard-toplevel)