Предлагаю учитывать часовой пояс в таких делах, по месту жительства автора или регистрации компании. А то у меня еще 13-е.

Да всем насрать на твою деревню, время по Мск считается.

Не забудьте накатить

А выглядит совсем как живой.

Помянем.

Через 5 лет можно на пенсию отправлять, а пока молод еще и годен писать каталогизаторы mp3.

время по Мск считается.

Уже давно не считается. Используйте UTC, будте добры.

совсем как живой

ЛИСП жил, ЛИСП жив, ЛИСП будет жить! Ура, товарищи!

Он в 1958 появился

в 1958 появился

Эй, не мешай нам бухать и вспоминать молодость.

Но таки в 60-м, видимо, появилась статья и первая реализация.

появилась статья и первая реализация

Таки да.

Эй, не мешай нам бухать ...

Лишь бы повод.

50 лет языку LISP

20.10.08

Интересно получается.

Че-то эпическим тредом и не пахнет. Все устали от лиспа за 60 лет и флеймов вокруг него? :)

Все просто устали лисп хоронить. Хоронили-хоронили, закапывали-закапывали, замучались, в земле перепачкались, думают хлопнуть по стопарику и спать, а он на выходе из погоста встречает радостный и румяный, зовёт в гости день рожденья отмечать.

Забыл, какая команда это выводит, а найти не могу.

Вообще-то он раньше появился.

Забыл, какая команда это выводит, а найти не могу.

calendar -f /usr/share/calendar/calendar.computer

Cпасибо!

Ух ты так вот где оно!

cat /usr/share/calendar/ru_RU/calendar.common

dron@gnu:~$ calendar -f  /usr/share/calendar/ru_RU/calendar.common 
мар 15*	День работников торговли, бытового обслуживания населения и жилищно-коммунального хозяйства
dron@gnu:~$ 

В гробу трупик зовёт бактерии и червей на пир.

а он на выходе из погоста встречает радостный и румяный, зовёт в гости день рожденья отмечать.

Именно так. Про погост тоже актуально, к сожалению :)

http://www.softwarepreservation.org/projects/LISP/book/LISP%201.5%20Programmers%20Manual.pdf

eval[f orm; a]= [ null[f orm]-NIL; numberp[f orm]-f orm; 1 atom[form]-[get[f O~~;APVAL]-car [apval 1; ~~cdr[sassoc[form;a;~[[ ];error[A8]]]]]; eq[car[f O~~];QUOTE]-cadr [form]; 2 eq[car [form]; FUNCTION]-~~~~[FUNARG; cadr [form];a]; eq[car [form]; COND]-evcon[cdr[form]; a]; eq[car [form]; ~~OG]-~ro~[cdr [form]; a]; 1 atom[car[form]] -[get[car [form];~~~~]-~a~~l~[ex~r; evlis[cdr lforrn];a];a]; get[car[form];~~~~~]-apply[fexpr !list[cdr [form];a];a]; spread[evlis [cdr [form]; a]]; get[car[form];~~~~]- TSX subr f 4 AC: =cdr [ form]; get[car[form];F~u~R]-, MQ: = $ALIST: =a; ; (TSx fsubr!4 } ~-e~al[~0ns[cdr[sas~0~[car[form];a;~[[];error[~9]]]]; cdr [form]]; a]]; T-apply [car [form];evlis [cdr [form]; a]; a]] evcon[c; a]= [null[c]--error [A3]; eval[caar[ c]; a]-eval[cadar [a];a]; T-evcon[cdr [ c];a]] evlis[ - m; a] =maplist [m; ~[[j]; eval[car[j]; a]]]