Comment 15 for bug 508618

Looks like my example code needed 'map'
(defun map (f l)
  "map function?"
  (if
  (nullp l)
  '()
    (if (listp l)
    (if (= 1 (length l))
    (list (funcall f (car l)))
  (if (> (length l) 1)
       (cons (map f (car l))
     (map f (cdr l)))))
  (funcall f l)
  )))