Fix diagnostics which call non-symbol a symbol.

* eval.c (me_load_for): An object which is not one of the
valid clause symbols is not necessarily a symbol; don't
call it one in the diagnostic.

* stdlib/struct.tl (sys:check-slot): Similarly, an object that
isn't the name of a struct slot isn't necessarily a
symbol; don't call it one.

1 files changed, 3 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 1aeb1c6a..fe45ae89 100644
--- a/eval.c
+++ b/eval.c
@@ -4677,6 +4677,9 @@ static val me_load_for(val form, val menv)
 
     if (consp(arg)) {
       val kind = car(arg);
+      if (!symbolp(kind))
+        expand_error(form, lit("~s: clause symbol expected, not ~s"),
+                     sym, kind, nao);
       if (kind != usr_var_s && kind != fun_s && kind != macro_s
           && kind != struct_s && kind != pkg_s)
         expand_error(form, lit("~s: unrecognized clause symbol ~s"),