diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-01-16 01:50:49 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-01-16 01:50:49 -0800 |
| commit | 7b807746cd98b883d16865b755f320c6579d06e1 (patch) | |
| tree | 55037a4088bb75b8649f569a7b7cce53177993c2 /share | |
| parent | 1cd29fe0673f85c9bd8b5306d01bf1ead6058126 (diff) | |
| download | txr-7b807746cd98b883d16865b755f320c6579d06e1.tar.gz txr-7b807746cd98b883d16865b755f320c6579d06e1.tar.bz2 txr-7b807746cd98b883d16865b755f320c6579d06e1.zip | |
defstruct: use warning for bad base
* share/txr/stdlib/struct.tl (defstruct): Making
nonexistent base type a deferrable warning.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/struct.tl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/share/txr/stdlib/struct.tl b/share/txr/stdlib/struct.tl index e4c6b1f3..df9393f1 100644 --- a/share/txr/stdlib/struct.tl +++ b/share/txr/stdlib/struct.tl @@ -114,10 +114,10 @@ ^(:instance ,name nil))))) (super-type (if super (or (find-struct-type super) - (compile-error form - "inheritance base ~s \ - \ does not name a struct type" - super)))) + (compile-defr-warning form ^(struct-type . ,super) + "inheritance base ~s \ + \ does not name a struct type" + super)))) (stat-si-forms [keep-if (op member @1 '(:static :function)) slot-init-forms car]) (pruned-si-forms (sys:prune-missing-inits stat-si-forms)) |