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, 27 insertions, 0 deletions

diff --git a/txr.1 b/txr.1
index 30717b5e..dfba7b14 100644
--- a/txr.1
+++ b/txr.1
@@ -24297,6 +24297,33 @@ initialization. Thus, during initialization, its instance slots may be
 freely accessed. Slots not yet initialized evaluate as
 .codn nil .
 
+.coNP Macros @ new* and @ lnew*
+.synb
+.mets (new* >> { expr | >> ( expr << arg *)} >> { slot << init-form }*)
+.mets (lnew* >> { expr | >> ( expr << arg *)} >> { slot << init-form }*)
+.syne
+.desc
+The
+.code new*
+and
+.code lnew*
+macros are variants, respectively, of
+.code new
+and
+.codn lnew .
+
+The only difference in behavior in these macros relative to
+.code new
+and
+.code lnew
+is that the
+.meta name
+argument is replaced with an expression
+.meta expr
+which is evaluated. The value of
+.meta expr
+must be a struct type, or a symbol which is the name of a struct type.
+
 .coNP Macro @ with-slots
 .synb
 .mets (with-slots >> ({ slot | >> ( sym << slot )}*) < struct-expr