Adding defmeth macro and static-slot-ensure.

* share/txr/stdlib/struct.tl (defmeth): New macro.

* struct.c (struct struct_type): New member, dvtypes.
(struct_init): Register static-slot-ensure
intrinsic.
(make_struct_type): Initialize dvtypes of newly instantiated
struct_type struct. If a super is specified, add new type
to the super's dvtypes.
(struct_type_mark): Mark st->dvtypes.
(static_slot_ensure): New function.

* struct.h (static_slot_ensure): Declared.

* txr.1: Documented defmeth and static-slot-ensure.

1 files changed, 1 insertions, 0 deletions

diff --git a/struct.h b/struct.h
index 52a62fa8..88f5a1c6 100644
--- a/struct.h
+++ b/struct.h
@@ -40,6 +40,7 @@ val slot(val strct, val sym);
 val slotset(val strct, val sym, val newval);
 val static_slot(val stype, val sym);
 val static_slot_set(val stype, val sym, val newval);
+val static_slot_ensure(val stype, val sym, val newval, val no_error_p);
 val slotp(val type, val sym);
 val static_slot_p(val type, val sym);
 val structp(val obj);