1.0.6.3: thread and interrupt safe CLOS cache

[sbcl.git] / src / code / array.lisp

diff --git a/src/code/array.lisp b/src/code/array.lisp
index d61aa46..50f730a 100644 (file)
--- a/src/code/array.lisp
+++ b/src/code/array.lisp
@@ -56,6 +56,7 @@
         (values vector index))
       (values array index)))
 
+(declaim (inline simple-vector-compare-and-swap))
 (defun simple-vector-compare-and-swap (vector index old new)
   #!+(or x86 x86-64)
   (%simple-vector-compare-and-swap vector