projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
correct octets in c-string decoding errors
[sbcl.git]
/
src
/
code
/
cas.lisp
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