APPROVE COMMIT NOTE: This patch has been committed # HG changeset patch # User Aidan Kehoe <kehoea(a)parhasard.net&gt; # Date 1507365037 -3600 # Sat Oct 07 09:30:37 2017 +0100 # Node ID 4ae34c21a927f5fc72839592ed99e960d7538d10 # Parent e3925877abce049cee4c83fcfd8a78a875ee813b Don't check whether original_fun is Qunbound, we know it's a symbol, Feval() src/ChangeLog addition: 2017-10-07 Aidan Kehoe <kehoea(a)parhasard.net&gt; * eval.c (Feval): Qunbound isn't a symbol, don't check for it once we've verified ORIGINAL_FUN is a symbol. diff -r e3925877abce -r 4ae34c21a927 src/ChangeLog --- a/src/ChangeLog Fri Oct 06 21:09:22 2017 +0100 +++ b/src/ChangeLog Sat Oct 07 09:30:37 2017 +0100 ＠＠ -1,3 +1,9 ＠＠ +2017-10-07 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * eval.c (Feval): + Qunbound isn't a symbol, don't check for it once we've verified + ORIGINAL_FUN is a symbol. + 2017-10-06 Aidan Kehoe <kehoea(a)parhasard.net&gt; * lisp.h: diff -r e3925877abce -r 4ae34c21a927 src/eval.c --- a/src/eval.c Fri Oct 06 21:09:22 2017 +0100 +++ b/src/eval.c Sat Oct 07 09:30:37 2017 +0100 ＠＠ -3899,10 +3899,9 ＠＠ retry: /* Optimise for no indirection. */ fun = original_fun; - if (SYMBOLP (fun) && !EQ (fun, Qunbound) - && (fun = XSYMBOL (fun)->function, SYMBOLP (fun))) - { - fun = indirect_function(original_fun, 1); + if (SYMBOLP (fun) && (fun = XSYMBOL (fun)->function, SYMBOLP (fun))) + { + fun = indirect_function (original_fun, 1); } if (SUBRP (fun)) -- ‘As I sat looking up at the Guinness ad, I could never figure out / How your man stayed up on the surfboard after forty pints of stout’ (C. Moore)