Steel Bank Common Lisp

The branch "master" has been updated in SBCL:
       via  f932dd50116c948d1b19358e9b2821df7a4e7380 (commit)
      from  06cc46735ebc73618995281f26fcce096c1110f6 (commit)

- Log -----------------------------------------------------------------
commit f932dd50116c948d1b19358e9b2821df7a4e7380
Author: Alastair Bridgewater <nyef@...>
Date:   Sun Nov 4 12:43:27 2012 -0500

    compiler/generic/genesis: Report FDEFN addresses for undefined functions.
    
      * In order to make debugging bootstrapping problems easier,
    include the address of FDEFNs which have not been defined in the
    cold-sbcl.map file.  This address is what shows up in ldb when
    such an FDEFN is invoked.
---
 src/compiler/generic/genesis.lisp |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index a019dab..9cc373f 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -3086,7 +3086,9 @@ initially undefined function references:~2%")
 
       (setf undefs (sort undefs #'string< :key #'fun-name-block-name))
       (dolist (name undefs)
-        (format t "~S~%" name)))
+        (format t "~8,'0X: ~S~%"
+                (descriptor-bits (gethash name *cold-fdefn-objects*))
+                name)))
 
     (format t "~%~|~%layout names:~2%")
     (collect ((stuff))

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL