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)
(add-prime candidate))))
;;
(init-table))
+
+;;; Bug in the fopcompiler's handling of LOCALLY pre-0.9.14.8
+
+(defvar *a* 1)
+
+(setf *a*
+ (locally
+ (declare)
+ 2))