Source of Nothingness - 2008-03-12 :

* 2008-03-12 :

(defun foo (i l)
  (if (>= i 5)
      l
    (foo (1+ i) (cons (lambda () i) l))))
(mapcar #'funcall (foo 0 nil))
=>(4 3 2 1 0)

update : 2008-03-12 (Wed) 00:48:54