(defun %array-atomic-incf/word (array index diff)
(declare (type (simple-array word (*)) array)
(fixnum index)
(type sb!vm:signed-word diff))
(%array-atomic-incf/word array index diff))
(defun %array-atomic-incf/word (array index diff)
(declare (type (simple-array word (*)) array)
(fixnum index)
(type sb!vm:signed-word diff))
(%array-atomic-incf/word array index diff))