どこから落としたか忘れたけど、ここにあるのでどうだろ
ttp://lispuser.net/commonlisp/clisp.html#clisp-for-win32-slime-ltk

列挙するコードつーか最大値求めてそれ以下のものを並べるだけなのだが
(time (loop for x from 0 to (log (gcd (expt 2 (ceiling (* 960 (log 3 2))))
(1- (expt 3 960))) 2) do (print x)))