LispForum

The code below consistently uses about 140% cpu on a core2 duo machine (i.e., two cores). I have other code which does GUI drawing in addition to processor intensive things on other threads that regularly gets near 200% cpu on a dual core machine. IOW, CCL under Mac OS X 10.5 and 10.6 has no problem...

Sorry, bad edit. This one works again: (defun make-prime-generator () (let ((most-recent-prime 1)) (lambda () (flet ((prime-p (n) (not (loop for i from 2 to (isqrt n) when (integerp (/ n i)) return t)))) (loop for j from (1+ most-recent-prime) when (prime-p j) do (setf most-recent-prime j) (return j...

this is a little clearer (defun make-prime-generator () (let ((most-recent-prime 1)) (lambda () (flet ((prime-p (n) (loop for i from 2 to (isqrt n) when (integerp (/ n i)) return nil)))) (loop for j from (1+ most-recent-prime) when (prime-p j) do (setf most-recent-prime j) (return j)))))

? (defun make-prime-generator () (let ((most-recent-prime 1)) (lambda () (labels ((prime-p (n) (not (loop for i from 2 to (isqrt n) when (integerp (/ n i)) do (return t))))) (loop for j from (1+ most-recent-prime) when (prime-p j) do (setf most-recent-prime j) (return j)))))) MAKE-PRIME-GENERATOR ?...