use bind to restructure arguments to lambda expressions

gistfile1.cl

(defmacro lambdab ((&rest instrs) &rest body)
  "Use `bind' to allow restructuring of argument to lambda expressions."
  (declare (indent 1))
  (let* ((evald-instrs instrs)
         (syms (mapcar (lambda (_) (gensym)) evald-instrs)))
    `(lambda ,syms (bind ,(mapcar #'list evald-instrs syms) ,@body))))

;; example usage
(let ((fn (lambdab ((a b) c) (cons a c))))
  (funcall fn '(1 2) 3)) ;; => (1 . 3)

Hi Eric,

This looks pretty cool. I'd be happy to add it to metabang-bind. Look for it sometime this week.

regards,