[Ecls-list] Ported PROFILE

[Juan Jose Garcia-Ripoll]

Tag: (CVS 2008-02-09 09:37)

 - Ported CMUCL's profiler as a contributed package.

> (require 'profile)
;;; Loading #P"/Users/jjgarcia/lib/ecl/PROFILE.fas"
NIL
> (defun foo (a) (cos a))
FOO
> (prof:profile foo)
> (dotimes (i 100000) (foo 1.0))
NIL
> (prof:report)
measuring PROFILE overhead..done
  seconds  |   consed  |  calls  |  sec/call  |  name
---------------------------------------------------------
     0.064 | 4,800,000 | 100,000 |   0.000001 | FOO
---------------------------------------------------------
     0.064 | 4,800,000 | 100,000 |            | Total

estimated total profiling overhead: 0.30 seconds
overhead estimation parameters:
  8.6E-8s/call, 3.0020001E-6s total profiling, 1.34E-6s internal profiling


-- 
Facultad de Fisicas, Universidad Complutense,
Ciudad Universitaria s/n Madrid 28040 (Spain)
http://juanjose.garciaripoll.googlepages.com