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, 1 deletions

diff --git a/lisplib.c b/lisplib.c
index 46d99305..b33018da 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -174,7 +174,7 @@ static val struct_set_entries(val dlt, val fun)
 {
   val name[] = {
     lit("defstruct"), lit("qref"), lit("new"), lit("meth"),
-    lit("umeth"), lit("defmeth"), nil
+    lit("umeth"), lit("usl"), lit("defmeth"), nil
   };
 
   set_dlt_entries(dlt, name, fun);