X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fglobaldb.lisp;h=b009be7a99f970d78eaaebd8486b4e7154771d96;hb=be9eb6c67b5f43a095c3de17bea945c309d662e4;hp=60c4c96ea2197eb7ec86bf51ed38d7618b12a490;hpb=b6cb3d5b2e2a0d6e6c92a2f3d852051540660fef;p=sbcl.git

diff --git a/src/compiler/globaldb.lisp b/src/compiler/globaldb.lisp
index 60c4c96..b009be7 100644
--- a/src/compiler/globaldb.lisp
+++ b/src/compiler/globaldb.lisp
@@ -1022,7 +1022,7 @@
   :default
   #+sb-xc-host (specifier-type 'function)
   #-sb-xc-host (if (fboundp name)
-		   (extract-function-type (fdefinition name))
+		   (extract-fun-type (fdefinition name))
 		   (specifier-type 'function)))
 
 ;;; the ASSUMED-TYPE for this function, if we have to infer the type
@@ -1031,7 +1031,7 @@
   :class :function
   :type :assumed-type
   ;; FIXME: The type-spec really should be
-  ;;   (or approximate-function-type null)).
+  ;;   (or approximate-fun-type null)).
   ;; It was changed to T as a hopefully-temporary hack while getting
   ;; cold init problems untangled.
   :type-spec t)