5 lines
125 B
Common Lisp
5 lines
125 B
Common Lisp
(let ((val 0))
|
|
(while (progn
|
|
(setq val (1+ val))
|
|
(message "%d" val)
|
|
(/= 0 (mod val 6)))))
|