matcher: add lambda-match and defun-match

* lisplib.c (match_set_entries): New autoload triggers.

* share/txr/stdlib/match.tl (lambda-match, defun-match): New
macros.

2 files changed, 11 insertions, 0 deletions

diff --git a/lisplib.c b/lisplib.c
index 38fa4e35..d7a06fcd 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -875,6 +875,7 @@ static val match_set_entries(val dlt, val fun)
   };
   val name[] = {
     lit("when-match"), lit("match-case"), lit("if-match"),
+    lit("lambda-match"), lit("defun-match"),
     nil
   };
 
diff --git a/share/txr/stdlib/match.tl b/share/txr/stdlib/match.tl
index 695a0310..9648901c 100644
--- a/share/txr/stdlib/match.tl
+++ b/share/txr/stdlib/match.tl
@@ -294,3 +294,13 @@
     ^(let (,flag ,result)
        ,*clause-code
        ,result)))
+
+(defmacro lambda-match (. clauses)
+  (with-gensyms (args)
+    ^(lambda (. ,args)
+       (match-case ,args ,*clauses))))
+
+(defmacro defun-match (name . clauses)
+  (with-gensyms (args)
+    ^(defun ,name (. ,args)
+       (match-case ,args ,*clauses))))