X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefboot.lisp;h=4c4d897eaf0e8eadd34cfffb1fb68e43946377b7;hb=4f64f131a7bca59d0dc8be9e74d05a7645f27e67;hp=69c3e9a0182a94c0b0d928e00f6e7b8180b040f7;hpb=099d6dd1f6a5ac2ffec5c14d07a4b905322ef968;p=sbcl.git

diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp
index 69c3e9a..4c4d897 100644
--- a/src/code/defboot.lisp
+++ b/src/code/defboot.lisp
@@ -169,12 +169,7 @@
     (if (and (consp name) (eq (first name) 'setf))
 	(setf (fdocumentation (second name) 'setf) doc)
 	(setf (fdocumentation name 'function) doc)))
-  (sb!c::proclaim-as-function-name name)
-  (if (eq (info :function :where-from name) :assumed)
-      (progn
-	(setf (info :function :where-from name) :defined)
-	(if (info :function :assumed-type name)
-	    (setf (info :function :assumed-type name) nil))))
+  (become-defined-function-name name)
   (when (or inline-expansion
 	    (info :function :inline-expansion name))
     (setf (info :function :inline-expansion name)