+(defun compiler-assert-symbol-home-package-unlocked (symbol control)
+ #!-sb-package-locks
+ (declare (ignore symbol control))
+ #!+sb-package-locks
+ (flet ((resignal (condition)
+ ;; Signal the condition to give user defined handlers a chance,
+ ;; if they decline convert to compiler-error.
+ (signal condition)
+ (sb!c:compiler-error condition)))
+ (handler-bind ((package-lock-violation #'resignal))
+ (with-single-package-locked-error ()
+ (assert-symbol-home-package-unlocked symbol control)))))
+