#!+sb-thread
`(locally
(declare (optimize (safety 0) (speed 3)))
- (sb!vm::fast-symbol-global-value-xadd ',symbol-name ,delta)
- ,symbol-name))
+ (sb!vm::locked-symbol-global-value-add ',symbol-name ,delta)))
(defmacro without-gcing (&rest body)
#!+sb-doc
,@body)
(atomic-incf/symbol *gc-inhibit* -1)
(when (and *need-to-collect-garbage* (zerop *gc-inhibit*))
- (maybe-gc nil))))
+ (sub-gc))))
\f
;;; EOF-OR-LOSE is a useful macro that handles EOF.