Function: cond*-bind-around

cond*-bind-around is a byte-compiled function defined in cond-star.el.gz.

Signature

(cond*-bind-around BINDINGS EXP)

Documentation

Wrap a let* around EXP, to bind those of BINDINGS used in EXP.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/cond-star.el.gz
;;; Subroutines of cond*-subpat.

(defun cond*-bind-around (bindings exp)
  "Wrap a `let*' around EXP, to bind those of BINDINGS used in EXP."
  (let ((what-to-bind (cond*-used-within bindings exp)))
    (if what-to-bind
        `(let* ,(nreverse what-to-bind) ,exp)
      exp)))