New uslot function and usl macro.

* struct.c (struct_init): Register uslot intrinsic function.
(uslot_fun): New static function.
(uslot): New function.

* struct.h (uslot): Declared.

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

* lisplib.c (struct_set_entries): Add usl macro.

* txr.1: Documented uslot and usl.

1 files changed, 1 insertions, 0 deletions

diff --git a/struct.h b/struct.h
index 88f5a1c6..d5545bf4 100644
--- a/struct.h
+++ b/struct.h
@@ -47,5 +47,6 @@ val structp(val obj);
 val struct_type(val strct);
 val method(val strct, val slotsym);
 val super_method(val strct, val slotsym);
+val uslot(val slot);
 val umethod(val slot);
 void struct_init(void);