(setf (info :function :type source-name) defined-ftype)
(setf (info :function :assumed-type source-name) nil))
(setf (info :function :where-from source-name) :defined))
(setf (info :function :type source-name) defined-ftype)
(setf (info :function :assumed-type source-name) nil))
(setf (info :function :where-from source-name) :defined))