X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcas.lisp;h=04f6aa24ff4980433b7d5239c2607a630c07b91c;hb=625c9493a8a7b5186144d21302437cf4f4f3571c;hp=17e41124c04163f2c8002c0b67ae99adc63d238b;hpb=d0d44ccf079f6ecaadea0616c85d733181634001;p=sbcl.git

diff --git a/src/code/cas.lisp b/src/code/cas.lisp
index 17e4112..04f6aa2 100644
--- a/src/code/cas.lisp
+++ b/src/code/cas.lisp
@@ -8,7 +8,9 @@
 ;;;; DEFCAS, and #'(CAS ...) functions -- making things mostly isomorphic with
 ;;;; SETF.
 
-(defglobal **cas-expanders** (make-hash-table :test #'eq :synchronized t))
+(defglobal **cas-expanders** (make-hash-table :test #'eq
+                                              #-sb-xc-host #-sb-xc-host
+                                              :synchronized t))
 
 (define-function-name-syntax cas (list)
   (destructuring-bind (cas symbol) list