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) )))
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)
)))