shithub: sl

ref: 8197197ced7ee888594d4cecc1cf4617848652ef
dir: /femtolisp/wt.lsp/

View raw version
(setq i 0)
(defmacro while- (test . forms)
  `((label -loop- (lambda ()
                    (if ,test
                        (progn ,@forms
                               (-loop-))
                      nil)))))
(while (< i 10000000) (setq i (+ i 1)))