ref: c8c59b1dfc38561e21a16e97bbf7325e62b1a0e1
dir: /femtolisp/wt.lsp/
(setq i 0)
(defmacro while- (test . forms)
`((label -loop- (lambda ()
(if ,test
(progn ,@forms
(-loop-))
nil)))))
(while (< i 10000000) (setq i (+ i 1)))