compiler: streamline destructuring error checks.

* lisplib.c (error_set_entries): Add sys:bind-mac-check to
autoload list for error.tl

* compiler.tl (expand-bind-mac-params): For strict mode, use
the new sys:bind-mac-check function to do the check and
report the error.  For non-strict checks, consolidate the
error check by taking advantage of n-ary nature of <=
function.

* error.tl (sys:bind-mac-check): New function.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisplib.c b/lisplib.c
index 1008912f..8932f2d1 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -544,7 +544,8 @@ static val pmac_instantiate(val set_fun)
 static val error_set_entries(val dlt, val fun)
 {
   val sys_name[] = {
-    lit("bind-mac-error"), lit("lambda-too-many-args"),
+    lit("bind-mac-error"), lit("bind-mac-check"),
+    lit("lambda-too-many-args"),
     lit("lambda-too-few-args"), lit("lambda-short-apply-list"),
     nil
   };