[baaba]

читал тут, захотелось написать аналог mapcar, правда не знаю зачем..

Код:

[Выделить все]

(defun mapcar4 (fun lst / n m)
	(setq n ())
	(reverse (foreach m lst (setq n (cons (eval ((eval fun) m)) n)))))

применять так:

Код:

[Выделить все]

(defun testfun (a) (1+ a))
(mapcar 'testfun '(1 2 3 4 5))
(mapcar4 'testfun '(1 2 3 4 5))

Хотелось бы знать, какие подводные камни?

Кстати, интерпретатор cmucl мою функцию выполнить не может. Вообще интересно, насколько autolisp отличается от реализации common lisp?

[Дима_]

у настощего mapcara количесвто аргументов не ограниченно:
(mapcar '+ '(1 2 3) '(4 5 6) '(7 8 9)) - Ваш тут "загнется".

[kp+]

На caduser.ru есть тема "Уроки создания рекурсивных функций". Там первый же пример - аналог mapcar