X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fpcounter.lisp;h=c250ecdcb713988ccdff71c3c8754f3881b76e3d;hb=86210c4e406c1b2ff10cc3bac0e71435867db48b;hp=57a38f7b4a9185f2e113c79776ffa25671917b31;hpb=4719b7d5d66c5930d3efd6a6d8e7572b16809f8d;p=sbcl.git

diff --git a/src/code/pcounter.lisp b/src/code/pcounter.lisp
index 57a38f7..c250ecd 100644
--- a/src/code/pcounter.lisp
+++ b/src/code/pcounter.lisp
@@ -8,10 +8,13 @@
 ;;;; bytes consed in a profiled function are all examples of such
 ;;;; quantities. The name is an abbreviation for "Profiling COUNTER".
 ;;;;
-;;;; It's not one of my more brilliant names, if you have a better
-;;;; suggestion, I might be interested. -- WHN 2001-06-22
+;;;; (This isn't one of my more brilliant names, so if you have a
+;;;; better suggestion, let me know. -- WHN 2001-06-22)
 
-(in-package "SB!IMPL")
+;;; This stuff is implemented in the SB!PROFILE because the profiling
+;;; code is currently the only code which wants to poke around in the
+;;; implementation details.
+(in-package "SB!PROFILE")
 
 ;;;; basic PCOUNTER stuff