5 lines
125 B
Common Lisp
5 lines
125 B
Common Lisp
(let ((val 0) done)
|
|
(while (not done)
|
|
(setq val (1+ val))
|
|
(message "%d" val)
|
|
(setq done (zerop (mod val 6)))))
|