1 665c255d 2023-08-04 jrmu (defun search-for-primes (start end)
2 665c255d 2023-08-04 jrmu   (let ((start (if (evenp start) (1+ start) start)))
3 665c255d 2023-08-04 jrmu     (do ((i start (+ i 2)))
4 665c255d 2023-08-04 jrmu 	((> i end))
5 665c255d 2023-08-04 jrmu 	(when (prime? i)
6 665c255d 2023-08-04 jrmu 	  (format t "~d is prime~%" i)))))
7 665c255d 2023-08-04 jrmu 
8 665c255d 2023-08-04 jrmu (time (dotimes (i 1000 t) (search-for-primes 1000 1019)))