Inherit FP modes for new threads on Windows.

[sbcl.git] / src / code / late-cas.lisp

diff --git a/src/code/late-cas.lisp b/src/code/late-cas.lisp
index dd912dc..0ae2ca3 100644 (file)
--- a/src/code/late-cas.lisp
+++ b/src/code/late-cas.lisp
@@ -28,7 +28,7 @@
                           ',cname ,old (the ,(info :variable :type cname) ,new))
                         slow)
                     slow))
-              `(symbol-global-value ,tmp)))))
+              `(symbol-global-value ,(or tmp `',cname))))))
 
 (define-cas-expander svref (vector index)
   (with-unique-names (v i old new)