X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fgeneric%2Fgenesis.lisp;h=b54e70e65a3fb718dcb28177bbc3ef6f83fff7ad;hb=0a82f2db352cc348d2107a882e50af222ff97ed3;hp=3204827154d8b230202e81b853059a7a01b894b3;hpb=50305b602c3953440af716137a56f50cd204375d;p=sbcl.git

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index 3204827..b54e70e 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -1352,7 +1352,7 @@
 		    (warm-symbol cadr-des))))
 	   (#.sb!vm:other-pointer-lowtag
 	    (warm-symbol des)))))
-    (unless (legal-function-name-p result)
+    (unless (legal-fun-name-p result)
       (error "not a legal function name: ~S" result))
     result))
 
@@ -2705,7 +2705,7 @@ that they were called before the out-of-line definition is installed,
 as is fairly common for structure accessors.)
 initially undefined function references:~2%")
 
-      (setf undefs (sort undefs #'string< :key #'function-name-block-name))
+      (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