From Newsgroup: comp.lang.lisp

Kjeld Larsen wrote:

(defun f1 (list num)
(loop for n in list
collect (+ n num)))

(define (f1 lst num)
(map. + num lst))

Given:

(define (map. func obj seq)
(map (lambda(x) (func obj x)) seq))
--
The good news is, it's not Lisp that sucks, but Common Lisp. --- Paul Graham --- Synchronet 3.21a-Linux NewsLink 1.2