*CL

octocat 11.07.2011 16:56

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

octocat 08.07.2011 19:24

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

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

octocat 28.06.2011 21:05

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

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

Do you really want to delete ?

*CL is used by:

Octocat

octocat

Sectoid

Sectoid