Diffs between working revision and workfile:

diff --git a/contrib/sb-sprof/sb-sprof.lisp b/contrib/sb-sprof/sb-sprof.lisp
index 7d2374e..c3eaece 100644
--- a/contrib/sb-sprof/sb-sprof.lisp
+++ b/contrib/sb-sprof/sb-sprof.lisp
@@ -894,7 +894,10 @@ The following keyword args are recognized:
          ;; Call graphs are mostly useless unless we somehow
          ;; distinguish a gazillion different (LAMBDA ())'s.
          (when (equal name '(lambda ()))
-           (setf name (format nil "Unknown component: #x~x" start-pc)))
+           (setf name (format nil "Unnamed LAMBDA in ~a #x~x"
+                              (sb-c::debug-info-name
+                               (sb-vm::%code-debug-info component))
+                              start-pc)))
          (values (%make-node :name (clean-name name)
                              :debug-info info
                              :start-pc-or-offset start-offset


Diffs between working revision and workfile end here.