1 files changed, 1 insertions, 0 deletions
diff --git a/eval.c b/eval.c
index 4e1c7aad..665c5d2a 100644
--- a/eval.c
+++ b/eval.c
@@ -6395,6 +6395,7 @@ void eval_init(void)
   reg_fun(list_s, list_f);
   reg_fun(list_star_s, func_n0v(list_star_intrinsic));
   reg_fun(identity_s, identity_f);
+  reg_fun(intern(lit("identity*"), user_package), identity_star_f);
   reg_fun(intern(lit("use"), user_package), identity_f);
   reg_fun(intern(lit("typeof"), user_package), func_n1(typeof));
   reg_fun(intern(lit("subtypep"), user_package), func_n2(subtypep));