projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.0.32: support for FreeBSD/x86-64
[sbcl.git]
/
tests
/
compiler.impure-cload.lisp
diff --git
a/tests/compiler.impure-cload.lisp
b/tests/compiler.impure-cload.lisp
index
44f7396
..
302f5f9
100644
(file)
--- a/
tests/compiler.impure-cload.lisp
+++ b/
tests/compiler.impure-cload.lisp
@@
-449,7
+449,7
@@
(setq *hannu-trap* t))
(assert (not *hannu-trap*))
(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))
(let* ((initial-size (expt 2 16))
(prime-table (make-array initial-size
:element-type 'integer))
@@
-460,7
+460,7
@@
227 229 233 239 241 251 257 263 269 271 277 281))
(count 0)
(increment 2))
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)
(defun largest-prime-so-far ()
(aref prime-table (1- count)))
(defun add-prime (prime)
@@
-490,3
+490,12
@@
(add-prime candidate))))
;;
(init-table))
(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))