Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10596/tests
Modified Files:
compiler.impure-cload.lisp
Log Message:
0.9.4.5:
* in tls use the new widetag no-tls-value-market instead of
unbound-marker when a symbol has no thread local value
Index: compiler.impure-cload.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compiler.impure-cload.lisp,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- compiler.impure-cload.lisp 14 Jul 2005 16:30:43 -0000 1.25
+++ compiler.impure-cload.lisp 26 Aug 2005 20:30:06 -0000 1.26
@@ -442,5 +442,12 @@
(compiled-res (funcall (compile nil form)))
(real-res (- 1 (aref (funcall (eval #'bit-not) v) 0))))
(assert (equal compiled-res real-res)))
+
+;; bug reported on sbcl-devel by Hannu Koivisto on 2005-08-10
+(defvar *hannu-trap* nil)
+(progv '(*hannu-trap*) '()
+ (setq *hannu-trap* t))
+(assert (not *hannu-trap*))
+
(sb-ext:quit :unix-status 104)
|