[Common Lisp] 素数

(loop for l = (loop for i from 2 to 100000 collect i)
        then (delete-if {zerop (mod _ x)} (cdr l))
      for x = (car l)
      while x
      collect x)