Use sys_load_s symbol variable.

* eval.c (eval_init): Use sys_load_s variable
set up earlier in the function instead of redundant call to
intern.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index 7316ed30..92b54b52 100644
--- a/eval.c
+++ b/eval.c
@@ -5066,7 +5066,7 @@ void eval_init(void)
   reg_fun(intern(lit("lisp-parse"), user_package), func_n5o(lisp_parse, 0));
   reg_fun(intern(lit("read"), user_package), func_n5o(lisp_parse, 0));
   reg_fun(intern(lit("iread"), user_package), func_n5o(iread, 0));
-  reg_fun(intern(lit("load"), system_package), func_n2(sys_load));
+  reg_fun(sys_load_s, func_n2(sys_load));
   reg_fun(intern(lit("expand"), system_package), func_n2o(expand, 1));
   reg_fun(intern(lit("macro-form-p"), user_package), func_n2o(macro_form_p, 1));
   reg_fun(intern(lit("macroexpand-1"), user_package),