;;;; files for more information.
(in-package "SB!IMPL")
-\f
-
-#!-sb-thread
-(defmacro atomic-incf (symbol-name &optional (delta 1))
- `(incf ,symbol-name ,delta))
-(defmacro atomic-decf (place &optional (delta 1))
- `(atomic-incf ,place ,(- delta)))
+(defmacro atomic-incf/symbol (symbol-name &optional (delta 1))
+ #!-sb-thread
+ `(incf ,symbol-name ,delta)
+ #!+sb-thread
+ `(locally
+ (declare (optimize (safety 0) (speed 3)))
+ (sb!vm::locked-symbol-global-value-add ',symbol-name ,delta)))
+;;; When >0, inhibits garbage collection.
+(declaim (type index *gc-inhibit*))
+(defvar *gc-inhibit*) ; initialized in cold init
(defmacro without-gcing (&rest body)
#!+sb-doc
"Executes the forms in the body without doing a garbage collection."
`(unwind-protect
(progn
- (atomic-incf *gc-inhibit*)
+ (atomic-incf/symbol *gc-inhibit*)
,@body)
- (atomic-decf *gc-inhibit*)
+ (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.
:datum ,svar
:expected-type '(satisfies input-stream-p)
:format-control "~S isn't an input stream"
- :format-arguments ,(list svar)))
+ :format-arguments (list ,svar)))
,svar)))))
(defmacro out-synonym-of (stream &optional check-type)
(let ((svar (gensym)))
:datum ,svar
:expected-type '(satisfies output-stream-p)
:format-control "~S isn't an output stream."
- :format-arguments ,(list svar)))
+ :format-arguments (list ,svar)))
,svar)))))
;;; WITH-mumble-STREAM calls the function in the given SLOT of the