4 ms·
E.g.: clisp> (macroexpand '(dotimes (i n) blah blah blah)) (BLOCK NIL (LET ((I 0) (#:COUNT-2814 N)) (TAGBODY #:LOOP-2815 (IF (>=
by parenthesis 18y ago
E.g.:
clisp> (macroexpand '(dotimes (i n) blah blah blah))
(BLOCK NIL
(LET ((I 0) (#:COUNT-2814 N))
(TAGBODY
#:LOOP-2815
(IF (>= I #:COUNT-2814)
(GO #:END-2816))
BLAH BLAH BLAH
(PSETQ I (1+ I))
(GO #:LOOP-2815)
#:END-2816
(RETURN-FROM NIL (PROGN NIL)))))
(goto in Common Lisp is (go ...) )