1 files changed, 1 insertions, 0 deletions
diff --git a/eval.c b/eval.c
index c3ceede9..9e2b73e1 100644
--- a/eval.c
+++ b/eval.c
@@ -5036,6 +5036,7 @@ void eval_init(void)
 
   reg_fun(intern(lit("source-loc"), user_package), func_n1(source_loc));
   reg_fun(intern(lit("source-loc-str"), user_package), func_n2o(source_loc_str, 1));
+  reg_fun(intern(lit("macro-ancestor"), user_package), func_n1(lookup_origin));
   reg_fun(intern(lit("rlcp"), user_package), func_n2(rlcp));
 
   eval_error_s = intern(lit("eval-error"), user_package);