Improve unbound function warning.

* eval.c (do_expand): Do not use the "unbound function"
warning if the operator position isn't a symbol which
can have a function binding.

1 files changed, 5 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index f3b94211..e9c770ef 100644
--- a/eval.c
+++ b/eval.c
@@ -3909,7 +3909,11 @@ static val do_expand(val form, val menv)
 
       if (form_ex == form && args_ex == args) {
         if (!lookup_fun(menv, sym) && !special_operator_p(sym))
-          eval_warn(last_form_expanded, lit("unbound function ~s"), sym, nao);
+          eval_warn(last_form_expanded,
+                    if3(bindable(sym_ex),
+                                 lit("unbound function ~s"),
+                                 lit("~s appears in operator position")),
+                    sym, nao);
         return form;
       }