>>65
漏れならこう書くが、合ってるかどうかは知らん。
ANSI Common Lisp持ってないし。

(defun pos+ (l)
　(let ((n -1))
　　(mapcar #'(lambda (x) (+ x (incf n))) l)))