diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2015-11-14 20:54:00 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2015-11-20 16:17:17 -0800 |
commit | 3cad8dfa357c5733c94e2a301da9184f3eb50e78 (patch) | |
tree | dda8527ead51d8cf5c8e747c32a530498562ad66 /share | |
parent | 75f37374682fe01685ed4c0df0b068e475c864ec (diff) | |
download | txr-3cad8dfa357c5733c94e2a301da9184f3eb50e78.tar.gz txr-3cad8dfa357c5733c94e2a301da9184f3eb50e78.tar.bz2 txr-3cad8dfa357c5733c94e2a301da9184f3eb50e78.zip |
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.
Diffstat (limited to 'share')
-rw-r--r-- | share/txr/stdlib/struct.tl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/share/txr/stdlib/struct.tl b/share/txr/stdlib/struct.tl index 34e9bb07..5cbf3c83 100644 --- a/share/txr/stdlib/struct.tl +++ b/share/txr/stdlib/struct.tl @@ -191,6 +191,9 @@ (defmacro meth (obj slot) ^(method ,obj ',slot)) +(defmacro usl (slot) + ^(uslot ',slot)) + (defmacro umeth (slot) ^(umethod ',slot)) |