*CL

лисперы, а если ли способ получить бэктрейс прилетевшего condition'а? Например в виде строки (лучше, конечно, списка). Лучше переносимо, но сгодится и sbcl-way. Чтот пока не нахожу. trivial-backtrace дает бэктрейсы точки вызова (print-backtrace err), а не точки выброса этого самого err.

#ttffge

add comment

По поводу #eizeo — я дятел. macroexpand-1 юзается не так :)

#entfz

add comment

На коленке воспроизвел жутко секретный (sic!) стандартный макрос defun. Оказалось что он еще и работает похоже на оригинал. Что не может не радовать.
(defmacro custom-defun (name params &rest body)
`(progn (defvar ,name nil) (setf ,name #'(lambda (,@params) ,@body))))

ЗЫ Зато slime опять сломался, скотина :(

#eghhf

add comment

CL-USER> (macroexpand-1 'defun)
DEFUN
NIL

Хм, а еще говорят, что defun — макрос... обида :)

#eizeo

add comment