qse/ase/test/lsp/t3.lsp

9 lines
95 B
Plaintext
Raw Normal View History

2005-09-20 12:06:51 +00:00
; test while
(setq x 10)
(setq y 10)
(while (< x 100) (setq y (+ x y)) (setq x (+ x 1)))
x
y