- (assert (%global-lock-p))
- (cond
- ((zerop (cdr (sb-thread:mutex-value *global-lock*)))
- (when flush-p
- (flush))
- (sb-thread:release-mutex *global-lock*))
- (t (decf (cdr (sb-thread:mutex-value *global-lock*))))))
+ (when *global-lock*
+ (assert (%global-lock-p))
+ (cond
+ ((zerop (cdr (sb-thread:mutex-value *global-lock*)))
+ (when flush-p
+ (flush))
+ (sb-thread:release-mutex *global-lock*))
+ (t (decf (cdr (sb-thread:mutex-value *global-lock*)))))))