On Fri, Jan 21, 2011 at 7:17 PM, Oliver Kullmann <O.Kullmann@swansea.ac.uk> wrote:
 (loop while 1 do
      (dolist (p *small-primes*)
    (if (= (mmod n p) 0) (return))
    (if (>= (* p p) n) (return-from next-prime-det n)))
      (incf n (nth (mmod n 210) deltaprimes)))

For whatever reason, ecl doesn't execute the loop.

Bug identified. It was a typo in the code that determines the value of a compiled constant. AFAI can tell, it only affects logical expressions in which *constant* integers or floats are used as true/false values. I will produce a patched release soon to fix this (the fix is in CVS and will be tested tonight)

Juanjo

--
Instituto de Física Fundamental, CSIC
c/ Serrano, 113b, Madrid 28006 (Spain)
http://juanjose.garciaripoll.googlepages.com