Вот, кстати, кто там жаловался на скобочки.
Сначала я думал, что unwind-protect это такая фирменная лисповая штука, но чуток подумал и понял, что это всего навсего аналог finally в блоке try/except
По-моему такой способ написания более няшен чем привычный питонячий или жабовый.
Сначала я думал, что unwind-protect это такая фирменная лисповая штука, но чуток подумал и понял, что это всего навсего аналог finally в блоке try/except
По-моему такой способ написания более няшен чем привычный питонячий или жабовый.
(let (resource stream)
(unwind-protect
(progn
(setq resource (allocate-resource)
stream (open-file))
(process stream resource))
(when stream (close stream))
;; если была ошибка, то выполняется эта строчка.
(when resource (deallocate resource))))