From 8b235dfe5e0d99661cbd39a8e09095aef180ff21 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 24 Mar 2017 20:11:04 -0700 Subject: 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. --- eval.c | 3 +++ 1 file changed, 3 insertions(+) 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); } -- cgit v1.2.3