From 3cad8dfa357c5733c94e2a301da9184f3eb50e78 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 14 Nov 2015 20:54:00 -0800
Subject: 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.
---
 lisplib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisplib.c')

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);
-- 
cgit v1.2.3