X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fprofile.lisp;h=1cd2dc2bdaa8e0ed620e7817e51bbee817cb8223;hb=127fd3d2fb843c6bb7ad0763e143d81877e760e8;hp=e2f98f9d1d1d6d80d3a1c3ae68dfdb0bcbd59ae6;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git diff --git a/src/code/profile.lisp b/src/code/profile.lisp index e2f98f9..1cd2dc2 100644 --- a/src/code/profile.lisp +++ b/src/code/profile.lisp @@ -11,11 +11,6 @@ ;;;; reading internal run time with high resolution and low overhead -;;; FIXME: It might make sense to replace this with something -;;; with finer resolution, e.g. milliseconds or microseconds. -;;; For that matter, maybe we should boost the internal clock -;;; up to something faster, like milliseconds. - (defconstant +ticks-per-second+ internal-time-units-per-second) (declaim (inline get-internal-ticks)) @@ -122,7 +117,7 @@ ;;; (VALUES ENCAPSULATION-FUN READ-STATS-FUN CLEAR-STATS-FUN). ;;; ;;; ENCAPSULATION-FUN is a plug-in replacement for ENCAPSULATED-FUN, -;;; which updates statistics whenver it's called. +;;; which updates statistics whenever it's called. ;;; ;;; READ-STATS-FUN returns the statistics: ;;; (VALUES COUNT TIME CONSING PROFILE).