Macro expansion!

2026-09-04 05:45:48 -07:00
parent 3b2ecf2b16
commit 8024bcfee3
13 changed files with 373 additions and 56 deletions
@@ -1,3 +1,7 @@
 ;; -*- mode: lisp-data -*-

-(function-arity (lambda (y &optional x x)))
+(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)