(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)