Another pcase-lambda

[Mark Oteiza]

Hi,

I wrote the following, as I wanted more out of pcase-lambda.  However,
pcase-lambda already exists so I don't know what to call it.  It does
somewhat emulate SRFI-16's case-lambda.

(defmacro case-lambda (&rest spec)
  "Return an arbitrary arity function."
  (declare (indent 0) (debug (&rest (pcase-QPAT body))))
  (let ((args (make-symbol "args")))
   `(lambda (&rest ,args)
      (pcase-exhaustive ,args ,@spec))))

(case-lambda
  (`() t)
  (`(,x) (cons x 1))
  (`(,x ,y) (list :x x :y y))
  (`(,x ,y . ,z) (vconcat (cons x (cons y z)))))