(setq *hannu-trap* t))
(assert (not *hannu-trap*))
-;;; bug reported on sbcl-help by vrotaru
+;;; bug reported on sbcl-help by Vasile Rotaru
(let* ((initial-size (expt 2 16))
(prime-table (make-array initial-size
:element-type 'integer))
227 229 233 239 241 251 257 263 269 271 277 281))
(count 0)
(increment 2))
-
+
(defun largest-prime-so-far ()
(aref prime-table (1- count)))
(defun add-prime (prime)