代码如上一篇一致
使用
使用macroexpand-1函数可以展开宏
(macroexpand-1 '(do-primes-2 (p 0 19) (format t "~d" p)))
返回结果:
(DO ((P (NEXT-PRIME 0) (NEXT-PRIME (1+ P)))) ((> P 19)) (FORMAT T "~d~t" P))
执行返回的结果:
CL-USER> (DO ((P (NEXT-PRIME 0) (NEXT-PRIME (1+ P)))) ((> P 19)) (FORMAT T "~d~t" P))
2 3 5 7 11 13 17 19
NIL