gistfile1.cl

(defvar *prime* (list 2))
(setf count 3)

(defun is-prime (n)
   (dolist (prime-number *prime*)
      (if (= n 1) (return-from is-prime nil))
      (if (= (mod n prime-number) 0)
         (return-from is-prime nil)))
   (return-from is-prime t))

(defun dump (prime)
   (format t "~{~r~%~}~%" prime))

(defun find-from-to (first last)
   (setf to-test (loop  for i from first to last collecting i))
   (dolist (number to-test)
      (when (is-prime number) (push number *prime*))))

(defun save-primes (filename)
   (with-open-file (out filename
	                :direction :output
	                :if-exists :supersede)
	   (with-standard-io-syntax
		   (print *prime* out))))

(defun load-primes (filename)
	(with-open-file (in filename)
		(with-standard-io-syntax
			(setf *prime* (read in)))))