[1]> (defmacro inc! (var)`(setq var (1+ var))) INC! [2]> (let ((x 1))(macroexpand '(inc! x))) (SETQ VAR (1+ VAR)) ; T [3]> (defmacro inc! (var)`(setq ,var (1+ ,var))) INC! [4]> (let ((x 1))(macroexpand '(inc! x))) (SETQ X (1+ X)) ; T [5]>On LispもLOLもせっかくWebで読めるので参考にしてはどうでしょう。 こんなとこでドヤ顔しながら回答しても無意味だけど。
0 件のコメント:
コメントを投稿