Fix build with non-SBCL host.

diff --git a/src/code/cas.lisp b/src/code/cas.lisp
index 17e4112..04f6aa2 100644 (file)
--- a/src/code/cas.lisp
+++ b/src/code/cas.lisp
@@ -8,7 +8,9 @@
 ;;;; DEFCAS, and #'(CAS ...) functions -- making things mostly isomorphic with
 ;;;; SETF.
 
 ;;;; 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
 
 (define-function-name-syntax cas (list)
   (destructuring-bind (cas symbol) list