Function: let-alist--list-to-sexp

let-alist--list-to-sexp is a byte-compiled function defined in let-alist.el.gz.

Signature

(let-alist--list-to-sexp LIST VAR)

Documentation

Turn symbols LIST into recursive calls to cdr assq on VAR.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/let-alist.el.gz
(defun let-alist--list-to-sexp (list var)
  "Turn symbols LIST into recursive calls to `cdr' `assq' on VAR."
  (let ((sym (car list))
        (rest (if (cdr list) (let-alist--list-to-sexp (cdr list) var)
                 var)))
    (cond
     ((numberp sym) `(nth ,sym ,rest))
     (t `(cdr (assq ',sym ,rest))))))