X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-cas.lisp;h=0ae2ca3eebe99762652bf84104454eebc36a6121;hb=77641d60a8b001bf3ccc755f3fb9881ee8d4753f;hp=dd912dc8c6cbbf11d84c9d82ad26adddcfc16e96;hpb=b71b8da241791687e7752f917ca032d937ba2bbf;p=sbcl.git

diff --git a/src/code/late-cas.lisp b/src/code/late-cas.lisp
index dd912dc..0ae2ca3 100644
--- 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)