;; An Example of mapcar*

(defvar succ (lambda (x) (+ x 1)))
(mapcar* succ '(1 2 3))

;; Another Example of mapcar*

(let* ((y    5                      )
       (f    (lambda (x) (list x y)))
      )
  (mapcar* f '(1 2 3)))

;; Renaming local variables

(let* ((cl-y 5                         )
       (f    (lambda (x) (list x cl-y)))
      )
  (mapcar* f '(1 2 3)))

;; Renaming local variables again

(let* ((cl-x 5                         )
       (f    (lambda (x) (list x cl-x)))
      )
  (mapcar* f '(1 2 3)))