X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fproclaim.lisp;h=0a6e7e385232a8d8701cc5b94022b5e7a884a4c4;hb=0a82f2db352cc348d2107a882e50af222ff97ed3;hp=3bedcb539461ecb03f5a6d8c08e98d7739e76804;hpb=50305b602c3953440af716137a56f50cd204375d;p=sbcl.git

diff --git a/src/compiler/proclaim.lisp b/src/compiler/proclaim.lisp
index 3bedcb5..0a6e7e3 100644
--- a/src/compiler/proclaim.lisp
+++ b/src/compiler/proclaim.lisp
@@ -155,7 +155,7 @@
 	     ;; function name was already declared as a structure
 	     ;; accessor, then that was already been taken care of.)
 	     (unless (info :function :accessor-for name)
-	       (proclaim-as-function-name name)
+	       (proclaim-as-fun-name name)
 	       (note-name-defined name :function))
 
 	     ;; the actual type declaration
@@ -175,7 +175,7 @@
        (setq *policy* (process-optimize-decl form *policy*)))
       ((inline notinline maybe-inline)
        (dolist (name args)
-	 ;; (CMU CL did (PROCLAIM-AS-FUNCTION-NAME NAME) here, but that
+	 ;; (CMU CL did (PROCLAIM-AS-FUN-NAME NAME) here, but that
 	 ;; seems more likely to surprise the user than to help him, so
 	 ;; we don't do it.)
 	 (setf (info :function :inlinep name)