Пишем веб-сервер на Common Lisp часть первая

[Bodigrim]

Сэр, я понимаю, что в Лиспе запятые нужны редко, однако в естественных языках они все еще в моде.

[troydm]

Если я где-то пропустил запятую буду признателен за советы

[symbix]

Ох… Пропущенных запятых там примерно столько же, сколько скобочек в приведенном коде. :)

[troydm]

Будем исправлять постепенно

[shambho]

Неопределённость Гейзенберга. Либо много скобок, либо мало запятых.

[andy128k]

В CL запятая — синтаксический сахар для сокращения количества скобочек.

[ulego]

Здесь.

[troydm]

А да точно :)

[ulego]

оппа, не туда.
Простите сэры, больше не буду!

(Defun рекурсия_пять_минут (x)
(cond((null x)nil)(t(progn
(Сволочь эта минусовая карма, пока извинишься раз в пять минут, уже подумают, что ты какой-нибудь сумасшедший (приходится сидеть и писать о внутренних мотивах (да (а нет, правильнее(t)))))
(рекурсия_пять_минут((cdr x))))))
)

Кажись прошло пять минут.
Сэры, позвольте откланяться!

[ulego]

а… нет, все-таки туда. Простите, судари все-таки, чо-то сам не свой, под конец дня. А вот вам для смены темы и отвлечения внимания от моих промахов незакрытая скобка (… даже две (

[andy128k]

Код ужасен. На CL не похож вообще.

Анахронизмы (setq), неэффективный код, ( (setq *worker-num* (1+ *worker-num*)) ), незнание базовых конструкций (if progn вместо when/unless/cond)…

плюсую :)

[troydm]

очень будет интересно если опишите алтернативные варианты как было бы лучше писать это

[andy128k]

1. setq — в этом сезоне не популярен. Все угорают по setf;
2. incf/decf;
3. почти всегда when/unless/cond предпочтительнее чем if (меньше скобок).

И, умоляю, исправьте отступы! Распугаете всех читателей.

[troydm]

насчёт отступов я почему когда текст с табами сюда копирую он все табы убирает, постораюсь исправить заменой табов на пробелы

[andy128k]

C-M-\
M-x untabify

;)

[feligz]

Мне кажется или это нормально для лиспа, что этот метод такой огромный defun worker-thread? может можно было бы разбить как то на составные части?

[troydm]

Я точно не знаю потому что особого опыта в отладке производительности я не делал в Common Lisp никогда. Если разбить на несколько частей то он будет быстрее работать?

[feligz]

Да нет, просто с ним будет намного проще работать имхо, одна задача — 1 метод классика жанра…

[troydm]

я немного привёл в порядок код, последнюю версию можете взять с git репозитория