X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprofile.lisp;h=48cd92a27d94084f0175ef69e256f78224cf48c9;hb=1a2e58050600401b9c4296fe4d7e4d083e118df1;hp=30bd69d9c55bcd5c9e40dd88ff0d7a83f6e132a2;hpb=ff92598854bf7cae8d57fe49cef4d9a98e1ab345;p=sbcl.git

diff --git a/src/code/profile.lisp b/src/code/profile.lisp
index 30bd69d..48cd92a 100644
--- a/src/code/profile.lisp
+++ b/src/code/profile.lisp
@@ -516,7 +516,6 @@ Lisp process."
 ;;; then load the old *OVERHEAD* value from the .core file into a
 ;;; different machine running at a different speed. We avoid this by
 ;;; erasing *CALL-OVERHEAD* whenever we save a .core file.
-(pushnew (lambda ()
-	   (without-package-locks
-	    (makunbound '*overhead*)))
-	 *before-save-initializations*)
+(defun profile-deinit ()
+  (without-package-locks
+    (makunbound '*overhead*)))