From: Joshua Elsasser <joshua@elsasser.org>
Date: Wed, 23 Nov 2011 02:02:50 +0000 (-0800)
Subject: Fix build with non-SBCL host.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=27f48073d85c9c56df88fb3d5e47055b8a471b73;p=sbcl.git

Fix build with non-SBCL host.
---

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