From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Sun, 30 Sep 2012 12:34:03 +0000 (+0300)
Subject: more debug output for the once-in-a-blue-moon cache flushing problem
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=927c5a967cd2626a24a052e9b8646ba046b7d054;hp=5bb2f28fd07a4d9b7fd88c774186e612517e5ebb;p=sbcl.git

more debug output for the once-in-a-blue-moon cache flushing problem

  ...was stupidly printing only 1/3rd of the intended amount of
  information. *sigh*
---

diff --git a/src/pcl/wrapper.lisp b/src/pcl/wrapper.lisp
index e5f086b..9cd4e01 100644
--- a/src/pcl/wrapper.lisp
+++ b/src/pcl/wrapper.lisp
@@ -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