9 lines
253 B
Plaintext
9 lines
253 B
Plaintext
|
(setq i 0)
|
||
|
|
(defmacro while- (test . forms)
|
||
|
|
`((label -loop- (lambda ()
|
||
|
|
(if ,test
|
||
|
|
(progn ,@forms
|
||
|
|
(-loop-))
|
||
|
|
nil)))))
|
||
|
|
(while (< i 10000000) (set 'i (+ i 1)))
|