;;; This is called in BRAID when we are making wrappers for classes
;;; whose slots are not initialized yet, and which may be built-in
;;; classes. We pass in the class name in addition to the class.
-(defun boot-make-wrapper (length name &optional class)
+(defun !boot-make-wrapper (length name &optional class)
(let ((found (find-classoid name nil)))
(cond
(found
(let ((new-state (layout-invalid (wrapper-of instance))))
(unless (neq t new-state)
(cerror "Nevermind and recurse." 'bug
- :format-control "~@<Problem forcing cache flushes. Please report ~
- to sbcl-devel. Info:~% ~S~:@>"
+ :format-control "~@<~4IProblem forcing cache flushes. Please report ~
+ to sbcl-devel.~
+ ~% Owrapper: ~S~
+ ~% Wrapper-of: ~S~
+ ~% Class-wrapper: ~S~%~:@>"
:format-arguments (mapcar (lambda (x)
(cons x (layout-invalid x)))
(list owrapper