qse/ase/cmd/lsp/t3.lsp

9 lines
95 B
Plaintext
Raw Normal View History

; test while
(setq x 10)
(setq y 10)
(while (< x 100) (setq y (+ x y)) (setq x (+ x 1)))
x
y