diff options
| -rw-r--r-- | share/txr/stdlib/struct.tl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/share/txr/stdlib/struct.tl b/share/txr/stdlib/struct.tl index 213e83cd..7e0d2af1 100644 --- a/share/txr/stdlib/struct.tl +++ b/share/txr/stdlib/struct.tl @@ -119,7 +119,10 @@ (super-type (find-struct-type super))) (whenlet ((bad [find-if [notf bindable] (append stat-slots inst-slots)])) - (throwf 'eval-error "~s: slot name ~s isn't a bindable symbol" + (throwf 'eval-error + (if (symbolp bad) + "~s: slot name ~s isn't a bindable symbol" + "~s: invalid slot specifier syntax: ~s") 'defstruct bad)) (set stat-si-forms (sys:prune-nil-inits stat-si-forms super-type)) (set inst-si-forms (sys:prune-nil-inits inst-si-forms super-type)) |