4.1cBSD/usr/lib/lisp/prof.x

(File prof.l)
(Pcontinue-evaluation lambda funcallhook quote evalhook eq cond)
(Pevalhook* lambda quote Pfuncall-evalhook*)
(Pfuncallhook* lexpr quote Pfuncall-evalhook* cons |1-| + <& do minusp eq cond sub1 listify cdr arg let)
(Pfuncall-evalhook* lambda Pcontinue-evaluation ncons cons putprop |1+| rplacd cdr return caar eq null do assq get car setq symbolp dtpr and cond If let)
(cutatblank lambda |1+| substring return substringn eq =& = cond If >& > do)
(pctprint lambda * quotient patom progn msg)
(lesscdr lambda cdr greaterp >)
(totcallsort lambda alphalessp equal = lessp < cond If get let)
(prof-report lambda close cdar quote sort terpr cadr cutatblank If pctprint patom progn msg caddddar cadddar caddar cadar caar null cdr do outfile cond car let setq)
(prof-end lambda list sort cons caar cdar cdr + putprop get car null do terpr length patom progn msg *rset setq quote sstatus)
(prof-start lambda terpr patom progn msg *rset sstatus quote list gensym setq)