(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)
(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))