From 16dddd1ab36eade6df291fd6a75be9b926b27036 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 18 May 2016 20:50:56 -0700 Subject: 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. --- eval.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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), -- cgit v1.2.3