(!begin-collecting-cold-init-forms)
;;; This lock is seized in the compiler, and related areas -- like the
;;; classoid/layout/class system.
(!begin-collecting-cold-init-forms)
;;; This lock is seized in the compiler, and related areas -- like the
;;; classoid/layout/class system.
(!defun-from-collected-cold-init-forms !world-lock-cold-init)
(defmacro with-world-lock (() &body body)
(!defun-from-collected-cold-init-forms !world-lock-cold-init)
(defmacro with-world-lock (() &body body)
;; FIXME: should be COMPILER-STYLE-WARNING?
(style-warn 'sb!kernel:asterisks-around-lexical-variable-name
:format-control
;; FIXME: should be COMPILER-STYLE-WARNING?
(style-warn 'sb!kernel:asterisks-around-lexical-variable-name
:format-control
(when (legal-fun-name-p name)
(bug "~S is a legal function name, and cannot be used as a ~
debug name." name))
(when (legal-fun-name-p name)
(bug "~S is a legal function name, and cannot be used as a ~
debug name." name))