Moved WHILE in MAKE-HASH* to work with Clisp