- Code: Select all
(LET ((I 0))
(DECLARE (IGNORABLE I))
#:G727 (WHEN = (RETURN-FROM NIL (PROGN I 10)))
(SETQ I (1+ I))
This all makes sense to me except for the (when = (...)). Shouldn't there be a test form where the "=" resides? I did the same expansion in Clozure CL and it is similar, but uses an (unless = (...)).