Short-circuit lisp-1 expander for atoms.

* eval.c (expand_lisp1): if the form is an atom that
is not a bindable symbol, just return it; don't wastefully
call into expand which has to save and restore some context.

1 files changed, 3 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index a5e5e45a..b6cfbb87 100644
--- a/eval.c
+++ b/eval.c
@@ -2961,6 +2961,9 @@ tail:
     return form;
   }
 
+  if (atom(form))
+    return form;
+
   return expand(form, menv);
 }