USER 6 > (trace macroexpand-1)
MACROEXPAND-1
USER 7 > (setq *trace-print-pretty* t
*print-pretty* nil)
NIL
USER 8 > (defmacro sum (n)
'(do ((i 0 (1+ i))
(res 0 (+ i res)))
((= i ,n) res)))
SUM
USER 9 > (macroexpand-1 '(sum 3))
0 MACROEXPAND-1 > ((SUM 3))
0 MACROEXPAND-1 < ((DO ((I 0 (1+ I))
(RES 0 (+ I RES)))
((= I 3)
RES))
T)
(DO ((I 0 (1+ I)) (RES 0 (+ I RES))) ((= I 3) RES))
T
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4