8 lines
230 B
Plaintext
8 lines
230 B
Plaintext
;; -*- mode: lisp-data -*-
|
|
|
|
(fset 'test (cons 'macro (lambda (x) (declare (name test)) (list 'princ x))))
|
|
|
|
(prin1 (macroexpand-all '(lambda () (test x))
|
|
'((test . (lambda (x) (test x))))))
|
|
(write-byte ?\n)
|