X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fwrapper.lisp;h=9cd4e01a3326cf9f66b21d659dc24eb45d57803d;hb=4f4906712a4fa98880fb0f8f036ca2add541b8a1;hp=ee29b2b922a7edd5d84c387be2b224508296f316;hpb=534ad97e08a9725fb4c9618f47602d7e83583600;p=sbcl.git

diff --git a/src/pcl/wrapper.lisp b/src/pcl/wrapper.lisp
index ee29b2b..9cd4e01 100644
--- a/src/pcl/wrapper.lisp
+++ b/src/pcl/wrapper.lisp
@@ -34,7 +34,7 @@
 ;;; 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
@@ -189,8 +189,11 @@
                (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