'while' cannot be used in Common Lisp

We can use `loop` for iteration.
Merge pull request #57 from syohex/fix-while

'while' cannot be used in Common Lisp