(no subject)

[stas]

Левенчук пишет, что все серьёзные программисты мечтают программировать на фукнциональных языках. Не знаю, как серьёзные, а у меня лично никогда желания программировать на Лиспе не возникало. Нечеловеческий он какой-то. Пусть ворлоны на нём программируют.

Comments

[stas]

Кстати, запустив указаный код (т.е. сначала defmacro, потом APPRIGHT), я получил вот что:

CL-USER(4): (APPRIGHT + 1 2 3 4 5)

Error: Attempt to take the value of the unbound variable `ARGS'.
[condition type: UNBOUND-VARIABLE]

Софт - Allegro CL.

[mauhuur.livejournal.com]

Похоже, опечатка где-то, не проверял, когда писал. Гарантированно работает вот это:

(defmacro appright (fn &rest args) (if (null (cdr args)) (car args) `(,fn ,(car args) (appright ,fn ,@(cdr args)))))

[stas]

Да, я уже нашёл :)

[stas]

А, понял - во второй строчке (car args) без кавычки должен быть, так?