projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.6.9: micro-optimize portions of the reader
[sbcl.git]
/
src
/
code
/
array.lisp
diff --git
a/src/code/array.lisp
b/src/code/array.lisp
index
39850a6
..
50f730a
100644
(file)
--- a/
src/code/array.lisp
+++ b/
src/code/array.lisp
@@
-56,6
+56,7
@@
(values vector index))
(values array index)))
(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
(defun simple-vector-compare-and-swap (vector index old new)
#!+(or x86 x86-64)
(%simple-vector-compare-and-swap vector
@@
-349,7
+350,7
@@
of specialized arrays is supported."
(:little-endian
(- sb!vm:other-pointer-lowtag))
(:big-endian
(:little-endian
(- sb!vm:other-pointer-lowtag))
(:big-endian
- (- (1- n-word-bytes) sb!vm:other-pointer-lowtag)))))
+ (- (1- sb!vm:n-word-bytes) sb!vm:other-pointer-lowtag)))))
;; WIDETAG-OF needs extra code to handle
;; LIST and FUNCTION lowtags. We're only
;; dispatching on other pointers, so let's
;; WIDETAG-OF needs extra code to handle
;; LIST and FUNCTION lowtags. We're only
;; dispatching on other pointers, so let's