getopts: new define-option-struct macro.

This provides more streamlined option processing.

* lisplib.c (getopts_set_entries): Add auto-load entry for
define-option-struct.

* share/txr/stdlib/getopts.tl (define-option-struct): New
macro.

* txr.1: Documented.

1 files changed, 1 insertions, 1 deletions

diff --git a/lisplib.c b/lisplib.c
index e3487496..30b2152a 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -473,7 +473,7 @@ static val getopts_set_entries(val dlt, val fun)
 {
   val name[] = {
     lit("opt-desc"), lit("opts"),
-    lit("opt"), lit("getopts"), lit("opthelp"),
+    lit("opt"), lit("getopts"), lit("opthelp"), lit("define-option-struct"),
     nil
   };
   val name_noload[] = {