oop: new new* and lnew* macros.

* lisplib.c (struct_set_entries): Add autoload entries for
new* and lnew* symbols.

* share/txr/stdlib/struct.tl (sys:new-type, sys:new-expander):
New functions.
(new, lnew): Macros now implemented using sys:new-expander.
(new*, lnew*): New macros.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/lisplib.c b/lisplib.c
index b0f0fcc2..d2d82b84 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -209,6 +209,7 @@ static val struct_set_entries(val dlt, val fun)
   };
   val name[] = {
     lit("defstruct"), lit("qref"), lit("uref"), lit("new"), lit("lnew"),
+    lit("new*"), lit("lnew*"),
     lit("meth"), lit("umeth"), lit("usl"), lit("defmeth"), lit("rslot"), nil
   };