matcher: first pattern macro, sme.

* lisplib.c (match_instantiate): Intern sme symbol.

* share/txr/stdlib/doc-syms.tl: Update with sme entry.

* share/txr/stdlib/match.tl (sme): New defmatch macro.

* tests/011/patmatch.tl: New tests for sme.

* txr.1: Documented.

1 files changed, 1 insertions, 1 deletions

diff --git a/lisplib.c b/lisplib.c
index 95fa9914..422fcaaa 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -871,7 +871,7 @@ static val match_instantiate(val set_fun)
 static val match_set_entries(val dlt, val fun)
 {
   val name_noload[] = {
-    lit("all*"), lit("as"), lit("with"), lit("scan"),
+    lit("all*"), lit("as"), lit("with"), lit("scan"), lit("sme"),
     nil
   };
   val name[] = {