diff options
| -rw-r--r-- | eval.c | 3 | ||||
| -rw-r--r-- | stdlib/struct.tl | 2 |
2 files changed, 4 insertions, 1 deletions
@@ -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"), diff --git a/stdlib/struct.tl b/stdlib/struct.tl index b6f545f4..6e8036f7 100644 --- a/stdlib/struct.tl +++ b/stdlib/struct.tl @@ -231,7 +231,7 @@ (unless (or (sys:slot-types slot) (sys:static-slot-types slot)) (compile-defr-warning form ^(slot . ,slot) - "symbol ~s isn't the name of a struct slot" + "~s isn't the name of a struct slot" slot)) slot) |