From 27f48073d85c9c56df88fb3d5e47055b8a471b73 Mon Sep 17 00:00:00 2001 From: Joshua Elsasser Date: Tue, 22 Nov 2011 18:02:50 -0800 Subject: [PATCH] Fix build with non-SBCL host. --- src/code/cas.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- 1.7.10.4