(DEFINE-FILE-INFO §PACKAGE "INTERLISP" §READTABLE "XCL" §BASE 10) (filecreated "18-Dec-86 19:03:34" ("compiled on " {eris}internal>library>whocalls.\;2) "18-Dec-86 11:42:37" |recompiled| |changes:| distribute.callinfo distribute-call-info-for-symbol |in| "Xerox Lisp 18-Dec-86 ..." |dated| "18-Dec-86 12:17:20") (filecreated "18-Dec-86 19:03:25" {eris}internal>library>whocalls.\;2 4500 |changes| |to:| ( fns distribute.callinfo distribute-call-info-for-symbol) (vars whocallscoms) |previous| |date:| " 7-Nov-86 02:47:11" {eris}lispcore>whocalls.\;2) whocalls :d4 (p 5 val p 4 calltype p 3 type i 1 usage i 0 callee) ¤Ad²5¿@A°!d[lFoµK ¸IµHhZH&¹µàJb¿g°bgð³$Agð³Agð³AgðAgð§Adgð›¿gb¿g°/gðAdgð§dgðš¿Ahb¿g—Adgð”¿g‚ g M(160 mapatoms 151 \\illegal.arg 29 \\illegal.arg 23 misspelled?) (157 whocalls1 147 fnapply 141 calls 134 varapply 122 globals 116 usedfree 109 bound 104 varapply 98 uses 92 globals 85 usedfree 79 bound 72 vars 65 var 58 uses 53 varapply) ( 20 (bound usedfree globals)) whocalls1a0001 :d4 (i 1 flg i 0 called f 0 callee f 1 usage f 2 fn f 3 val) 3Q–AQ ´)P•@P ‚@Pð´Ri ¿oi RScg (48 retfrom 37 prin1 28 prin1 17 memb 7 memb) (45 whocalls1) ( 33 ", ") whocalls1 :d4 (i 0 fn f 0 calltype) @ ´ @Pg(16 block 13 callsccode 3 ccodep) (10 whocalls1a0001) () distribute.callinfo :d4 nil ogg(12 add.process) (9 distribute-call-info 6 name) ( 3 (mapatoms (quote distribute-call-info-for-symbol))) distribute-call-info-for-symbol :d4 (p 5 z p 0 y i 0 x) µ@ ´‚±©@ AH° dMg ¹@IªMg@I¿µáH° dMg º@JªMg@J¿µáH° dMg »@KªMg@K¿µáH° dMg ¼@LªMg@L¿µáh(171 putprop 156 getprop 130 putprop 115 getprop 90 putprop 75 getprop 51 putprop 36 getprop 16 callsccode 6 ccodep 2 block) (165 usedglobalby 153 usedglobalby 124 usedfreeby 112 usedfreeby 84 boundby 72 boundby 45 calledby 33 calledby) () (rpaqq whocallscoms ((fns whocalls whocalls1 distribute.callinfo distribute-call-info-for-symbol) ( prop proptype calledby usedfreeby usedglobalby boundby))) (putprops calledby proptype ignore) (putprops usedfreeby proptype ignore) (putprops usedglobalby proptype ignore) (putprops boundby proptype ignore) (putprops whocalls copyright ("Xerox Corporation" 1986)) nil