diff --git a/compiler/profile.lisp b/compiler/profile.lisp
index 50e3f2918b0a983dfa2fd181c638d420d78d653b..34319b5cba9bda24887feff0e5ddc5920c9a7be3 100644
--- a/compiler/profile.lisp
+++ b/compiler/profile.lisp
@@ -1,7 +1,39 @@
 ;;; -*- Package: C -*-
-(in-package 'c)
+(in-package "C")
 
 (use-package "PROFILE")
+(declaim (ftype (function (t t t) *) ir1-top-level))
+(declaim (ftype (function (t) *) find-initial-dfo))
+(declaim (ftype (function (t) *) find-dfo))
+(declaim (ftype (function (t) *) local-call-analyze))
+(declaim (ftype (function (t) *) delete-block))
+(declaim (ftype (function (t) *) join-successor-if-possible))
+(declaim (ftype (function (t) *) ir1-optimize-block))
+(declaim (ftype (function (t) *) flush-dead-code))
+(declaim (ftype (function (t) *) generate-type-checks))
+(declaim (ftype (function (t) *) constraint-propagate))
+(declaim (ftype (function (t) *) pre-environment-analyze-top-level))
+(declaim (ftype (function (t) *) environment-analyze))
+(declaim (ftype (function (t) *) gtn-analyze))
+(declaim (ftype (function (t t) *) control-analyze))
+(declaim (ftype (function (t) *) ltn-analyze))
+(declaim (ftype (function (t) *) stack-analyze))
+(declaim (ftype (function (t) *) ir2-convert))
+(declaim (ftype (function (t) *) copy-propagate))
+(declaim (ftype (function (t) *) select-representations))
+(declaim (ftype (function (t) *) lifetime-analyze))
+(declaim (ftype (function (t) *) delete-unreferenced-tns))
+(declaim (ftype (function (t) *) pack))
+(declaim (ftype (function (t) *) generate-code))
+(declaim (ftype (function (t t t t t t) *) fasl-dump-component))
+(declaim (ftype (function (t) *) clear-ir2-info))
+(declaim (ftype (function (t) *) macerate-ir1-component))
+(declaim (ftype (function (t) *) merge-top-level-lambdas))
+(declaim (ftype (function (t t) *) note-failed-optimization))
+(declaim (ftype (function () *) clear-stuff))
+(declaim (ftype (function (t) *) read-source-form))
+(declaim (ftype (function (t t) *) fasl-dump-source-info))
+(declaim (ftype (function (t t) *) fasl-dump-top-level-lambda-call))
 
 (profile ir1-top-level
 	 find-initial-dfo
@@ -45,7 +77,6 @@
 	 clear-ir2-info
 	 macerate-ir1-component
 	 merge-top-level-lambdas
-	 check-free-function
 	 note-failed-optimization
 	 clear-stuff
 	 read-source-form