(!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)