[Sbcl-commits] CVS: sbcl/tests compiler.impure-cload.lisp,1.25,1.26

[<me...@us...>]

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)