*CL

По поводу #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