emacs.d/clones/lisp/www.csci.viu.ca/~wesselsd/courses/csci330/code/lisp/mapcar.cl.html

#! /usr/bin/gcl -f

; (mapcar 'function '(list of values))

(setf x (mapcar '- '(1 2 3 4)))
(format t "~A~%" x)
; applies - to each element of L,
;    building list from results, giving
;   '(-1 -2 -3 -4)