summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
5bb2f28)
...was stupidly printing only 1/3rd of the intended amount of
information. *sigh*
(let ((new-state (layout-invalid (wrapper-of instance))))
(unless (neq t new-state)
(cerror "Nevermind and recurse." 'bug
(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
:format-arguments (mapcar (lambda (x)
(cons x (layout-invalid x)))
(list owrapper