X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcompiler%2Fgeneric%2Fgenesis.lisp;h=234871d29d69b519b1e033f839294bd04680d827;hb=f865612b20955e92189b1e683203e12c8f08eb79;hp=b54e70e65a3fb718dcb28177bbc3ef6f83fff7ad;hpb=913e06f191acb65c1d99d42234704bec38500ff4;p=sbcl.git

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index b54e70e..234871d 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -2707,17 +2707,7 @@ initially undefined function references:~2%")
 
       (setf undefs (sort undefs #'string< :key #'fun-name-block-name))
       (dolist (name undefs)
-        (format t "~S" name)
-	;; FIXME: This ACCESSOR-FOR stuff should go away when the
-	;; code has stabilized. (It's only here to help me
-	;; categorize the flood of undefined functions caused by
-	;; completely rewriting the bootstrap process. Hopefully any
-	;; future maintainers will mostly have small numbers of
-	;; undefined functions..)
-	(let ((accessor-for (info :function :accessor-for name)))
-	  (when accessor-for
-	    (format t " (accessor for ~S)" accessor-for)))
-	(format t "~%")))
+        (format t "~S~%" name)))
 
     (format t "~%~|~%layout names:~2%")
     (collect ((stuff))