- Lisp_Object macroexpand = intern ("internal-macroexpand-for-load");
-
- if (NILP (Ffboundp (macroexpand))
- /* Don't macroexpand in .elc files, since it should have been done
- already. We actually don't know whether we're in a .elc file or not,
- so we use circumstantial evidence: .el files normally go through
- Vload_source_file_function -> load-with-code-conversion
- -> eval-buffer. */
- || EQ (readcharfun, Qget_file_char)
- || EQ (readcharfun, Qget_emacs_mule_file_char))
- macroexpand = Qnil;
+ Lisp_Object form = Fcons (Qprogn, Qnil);
+ Lisp_Object tail = form;
+ Lisp_Object compile_fn = 0;
+
+ if (SCM_UNLIKELY (! compile_fn))
+ compile_fn = scm_c_public_ref ("language elisp runtime", "compile-elisp");