(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "25-Jan-98 09:16:08" ("compiled on " {DSK}sources>BRKDWN.;1) "30-Mar-95 20:33:04" bcompl'd in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "16-May-90 12:14:36" {DSK}local>lde>lispcore>sources>BRKDWN.;2 25376 changes to%: ( VARS BRKDWNCOMS) previous date%: "23-Oct-86 21:37:08" {DSK}local>lde>lispcore>sources>BRKDWN.;1) (ADDTOVAR NOSWAPFNS BRKDWN2) BRKDWNTIME :D8 (L (4 BDZ 3 BDY 2 BDN 1 BDX 0 BDEXP)) `k `l Hk IHk jI Aj m`bA@ bBkBkb`Ddk `l Hk IHk jI C(152 \PUTBASEFIXP 145 ELT 136 ELT 126 CLOCK 114 ELT 80 EVAL 58 ELT 48 \PUTBASEFIXP 41 ELT 32 ELT 22 CLOCK 10 ELT) (119 BDLST 106 BDPTR 100 BDPTR 74 BDPTR 66 BDPTR 15 BDLST 4 BDPTR) () BRKDWNCONSES :D8 (L (4 BDZ 3 BDY 2 BDN 1 BDX 0 BDEXP)) `k `Hk IHk jI Aj m`bA@ bBkBkb`Ddk `Hk IHk jI C(148 \PUTBASEFIXP 141 ELT 132 ELT 122 CONSCOUNT 112 ELT 78 EVAL 56 ELT 46 \PUTBASEFIXP 39 ELT 30 ELT 20 CONSCOUNT 10 ELT) (117 BDLST 104 BDPTR 98 BDPTR 72 BDPTR 64 BDPTR 15 BDLST 4 BDPTR) () BRKDWNBOXES :D8 (L (4 BDZ 3 BDY 2 BDN 1 BDX 0 BDEXP)) `k `Hk IHk jI Aj m`bA@ bBkBkb`Ddk `Hk IHk jI C(148 \PUTBASEFIXP 141 ELT 132 ELT 122 BOXCOUNT 112 ELT 78 EVAL 56 ELT 46 \PUTBASEFIXP 39 ELT 30 ELT 20 BOXCOUNT 10 ELT) (117 BDLST 104 BDPTR 98 BDPTR 72 BDPTR 64 BDPTR 15 BDLST 4 BDPTR) () BREAKDOWN :D8 (L (0 FNS) F 5 BRKDWNTYPE) ^@ bP`Jd\ [d KgKdL L@ hdIHhZH&JUj ``k `@vkA@kdd3aihg Pd\Y`Ldd `kkghj `kjJI0KH h `.id KJl JkZd`k 0`dIHhZH&J(313 BRKDWNCLEAR 290 SETA 278 PRINT 249 \NCONC2 241 \BREAKDOWN/BRKDWNSETUP 218 ARRAY 197 GETD 176 BREAK0 135 BRKDWNCLEAR 118 CONSCOUNT 111 \BREAKDOWN/BRKDWN1 76 MEMB 66 EQP 38 EXPRP 31 GETD 12 BRKDWNINIT 5 NLAMBDA.ARGS) (326 BRKDWNLST 306 BRKDWNLENGTH 269 BRKDWNLST 254 BRKDWNLST 224 BRKDWNLENGTH 211 POINTER 202 BRKDWNLENGTH 189 BRKDWNLST 171 BRKDWN2 145 BDPTR 140 BDSINK 128 BRKDWNLENGTH 123 BDLST 104 BRKDWNLST 50 BRKDWN2 20 BRKDWNLST) () \BREAKDOWN/BRKDWNSETUP :D8 (L (3 N 2 PTR 1 DEF 0 FN) F 2 BRKDWNCOMPFLG) ABChRgh gAAg`g`ggCkgCHhHhBddi3 gBh hhh @g gh I@ h IAh HII(192 \NCONC2 182 \NCONC2 175 GETD 167 PUTD 155 PUTD 150 GETD 138 \BREAKDOWN/BRKDWNCOMPILE2 122 \BREAKDOWN/BRKDWNFORM 27 PUTD) (161 BRKDWNFN 145 BRKDWNFN 113 QUOTE 80 RPTQ 71 BDY 66 SETQ 61 BRKDWNLABELS 56 RETURN 48 BRKDWNARGS 43 PROG 33 BRKDWNFN 21 BRKDWNFN) () \BREAKDOWN/BRKDWN1 :D8 (F 14 BRKDWNTYPE) Wdh gH Z /Jg`oHo` h gJ i H Y`|`rd_Ikkghj IkjLKMLl Lk\MOd dOO NO  NONHh  h`h `kkghj _`kj__OOOOl Ok_O`kkghj _`kj__OOOOl Ok_Ohc(398 SETA 362 ARRAY 325 SETA 289 ARRAY 262 \APPEND2 245 LENGTH 235 \APPEND2 210 GETD 202 \BREAKDOWN/BRKDWNSETUP 191 PUTD 157 SETA 135 ARRAY 97 LENGTH 91 PUTD 85 GETD 73 \BREAKDOWN/BRKDWNCOMPILE2 63 \BREAKDOWN/BRKDWNFORM 27 \DEFINEDP 21 PACK) (414 BDSINK 370 BRKDWNLENGTH 355 POINTER 346 BRKDWNLENGTH 341 BDLST 297 BRKDWNLENGTH 282 POINTER 273 BRKDWNLENGTH 268 BRKDWNTOTLST 256 BRKDWNLABELS 250 BRKDWNLENGTH 240 BRKDWNLABELS 128 POINTER 111 BRKDWNLST 103 BRKDWNLENGTH 79 BRKDWN2 56 BRKDWNARGS 40 BRKDWNARGS 35 NLAMBDA 14 BRKDWN) ( 51 (PROG NIL BDLP (SETQ BDY (EVAL BDEXP)) (COND ((NEQ BDN 1) (SUB1VAR BDN) (GO BDLP)))) 45 (DECLARE (LOCALVARS . T))) \BREAKDOWN/BRKDWNFORM :D8 (L (2 PTR 1 SETFORM 0 LST) F 5 BRKDWNTYPES) khhhh#@Xd\U[Lo IgggHKh JgggHKh HkظggIgJABh(92 TCONC 62 TCONC 32 HELP) (119 PROGN 111 PROGN 106 BRKDWNMACRO 79 BDLST 74 BDZ 69 BRKDWNINCA 49 BDLST 44 BDPTR 39 BRKDWNINCA) ( 27 "not found") \BREAKDOWN/BRKDWNCOMPILE2A0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* P 6 SVFLG P 5 LAPFLG P 4 LCFIL P 3 LOCALVARS P 2 SPECVARS P 1 LSTFIL P 0 STRF I 0 SI::*CLEANUP-FORMS* F 7 LOCALVARS F 8 FN F 9 DEF) )iddWi`W `4WWi (38 COMPILE1 19 UNION) (25 SYSLOCALVARS 12 SYSLOCALVARS) () \BREAKDOWN/BRKDWNCOMPILE2A0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 SI::*CLEANUP-FORMS* F 3 LISPXHIST) <``````S!g $(53 SI::RESETUNWIND 48 \MVLIST 43 \BREAKDOWN/BRKDWNCOMPILE2A0001A0002) (38 SI::RESETUNWIND 29 NOFIXVARSLST 24 NOFIXFNSLST 19 LAMA 14 LAMS 9 NLAML 4 NLAMA) () \BREAKDOWN/BRKDWNCOMPILE2 :D8 (P 0 SI::*RESETFORMS* I 1 DEF I 0 FN) fg`g`g`g`g`g`hg $(95 SI::RESETUNWIND 90 \MVLIST 85 \BREAKDOWN/BRKDWNCOMPILE2A0001) (80 SI::RESETUNWIND 64 NOFIXVARSLST 59 NOFIXVARSLST 53 NOFIXFNSLST 48 NOFIXFNSLST 42 LAMA 37 LAMA 31 LAMS 26 LAMS 20 NLAML 15 NLAML 9 NLAMA 4 NLAMA) () BRKDWNRESULTSA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 4 I F 5 BRKDWNTYPES F 6 CL:VALUES) `d1i `T HUoi Hi lhi oi l!hi oi l.hi oi VdYIT IJK gJ`JK TkcHh(179 \BRKDWNRESULTS/BRKDWNRESULTS2 154 \BRKDWNRESULTS/BRKDWNRESULTS2 142 FNTH 125 LISPXPRIN1 113 LISPXTAB 103 LISPXPRIN1 91 LISPXTAB 81 LISPXPRIN1 69 LISPXTAB 59 LISPXPRIN1 51 LISPXPRIN1 31 FNTH 18 LISPXTERPRI) (170 BRKDWNTOTLST 164 TOTAL 24 BRKDWNTOTLST 4 BRKDWNLABELS) ( 119 "%% " 97 "PER CALL" 75 "# CALLS" 45 "FUNCTIONS ") BRKDWNRESULTS :D8 (L (0 RETURNVALUESFLG) P 6 SI::*RESETFORMS* P 1 CL:VALUES P 0 I F 7 BRKDWNFLTFMT) {k!j `dj0`!dZhJJ LKh]K&MY@1gW hhhg $h(115 SI::RESETUNWIND 110 \MVLIST 105 BRKDWNRESULTSA0001 85 FLTFMT 51 \BRKDWNRESULTS/BRKDWNRESULTS1 9 CONSCOUNT) (100 SI::RESETUNWIND 78 FLTFMT 31 BRKDWNLST 14 BRKDWNTOTLST) () \BRKDWNRESULTS/BRKDWNRESULTS1 :D8 (L (2 N 1 PTR 0 NLST)) Bj`@jAH ٻIdBkHjKKBJdZKK&ZIYHkظ@(17 ELT) (5 BRKDWNTOTLST) () \BRKDWNRESULTS/BRKDWNRESULTS2 :D8 (L (4 TERP 3 TOT 2 NCALLS 1 X 0 NAME)) zDAkDA@id lhi Hid lhi Bid l"hi HBid l-hi @goldACjid i h(118 LISPXTERPRI 111 LISPXPRIN2 81 LISPXTAB 72 LISPXPRIN2 62 LISPXTAB 53 LISPXPRIN2 45 LISPXTAB 36 LISPXPRIN2 28 LISPXTAB 19 LISPXPRIN2) (87 TOTAL) ( 95 0.5) BRKDWNINIT :D8 (P 2 I P 0 BLOCK) `yjkdghj kjJI5Hkdghj kjJI"HdHJl JkZHJl JkZh(118 SETA 101 SETA 63 ARRAY 27 ARRAY) (90 BDPTR 84 BDSINK 56 POINTER 48 BDLST 20 POINTER 12 BRKDWNLENGTH 4 BDPTR) () BRKDWNFBOXES :D8 (L (4 BDZ 3 BDY 2 BDN 1 BDX 0 BDEXP)) `k `g Hk IHk jI Aj m`bA@ bBkBkb`Ddk `g Hk IHk jI C(158 \PUTBASEFIXP 151 ELT 142 ELT 132 BOXCOUNT 117 ELT 83 EVAL 61 ELT 51 \PUTBASEFIXP 44 ELT 35 ELT 25 BOXCOUNT 10 ELT) (127 FLOATP 122 BDLST 109 BDPTR 103 BDPTR 77 BDPTR 69 BDPTR 20 FLOATP 15 BDLST 4 BDPTR) () RESULTS :D8 (I 0 RETURNVALUESFLG) @ (5 BRKDWNRESULTS) NIL () BRKDWNCLEAR :D8 (P 0 I I 1 N I 0 PTR) !AHjHkٸ@H jd h(26 \PUTBASEFIXP 19 ELT) NIL () (PRETTYCOMPRINT BRKDWNCOMS) (RPAQQ BRKDWNCOMS ((DECLARE%: FIRST (ADDVARS (NOSWAPFNS BRKDWN2))) (FNS BREAKDOWN BRKDWNINIT BRKDWNSETUP BRKDWN1 BRKDWNFORM BRKDWNCOMPILE2 BRKDWNTIME BRKDWNCONSES BRKDWNBOXES BRKDWNFBOXES RESULTS BRKDWNRESULTS BRKDWNRESULTS1 BRKDWNRESULTS2 BRKDWNCLEAR) (DECLARE%: EVAL@COMPILE (MACROS BRKDWNMACRO BRKDWNINCA) (MACROS BRKDWNADDTOA BRKDWNDIFFA CPUTIME IBOXCOUNT FBOXCOUNT BRKDWNELT BRKDWNSETA BRKDWNARRAY)) (VARS (BRKDWNLENGTH 0) (BRKDWNCOMPFLG NIL) BRKDWNARGS BRKDWNTYPES (BRKDWNFLTFMT ( NUMFORMATCODE (QUOTE (FLOAT 7 3 NIL NIL 10))))) (VARS (BRKDWNTYPE (QUOTE TIME)) (BRKDWNLABELS) ( BRKDWNLST)) (GLOBALVARS BRKDWNARGS BRKDWNLABELS BRKDWNLENGTH BRKDWNLST BRKDWNTOTLST BDLST BDSINK BDPTR ) (BLOCKS (NIL BRKDWNTIME BRKDWNCONSES BRKDWNBOXES (LINKFNS . T)) (BREAKDOWN BREAKDOWN BRKDWNSETUP BRKDWN1 BRKDWNFORM BRKDWNCOMPILE2 (GLOBALVARS NOSWAPFLG)) (BRKDWNRESULTS BRKDWNRESULTS BRKDWNRESULTS1 BRKDWNRESULTS2)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA BREAKDOWN) (NLAML BRKDWNFBOXES BRKDWNBOXES BRKDWNCONSES BRKDWNTIME) (LAMA))))) (DECLARE%: EVAL@COMPILE (PUTPROPS BRKDWNMACRO MACRO ((FORM1 FORM2 SETFORM PTR) (PROGN FORM1 ( BRKDWNADDTOA PTR 0 -1) (SETQ BDZ BDPTR) (SETQ BDPTR PTR) SETFORM (SETQ BDZ (PROG1 BDPTR (SETQ BDPTR BDZ))) FORM2 BDY))) (PUTPROPS BRKDWNINCA MACRO ((PTR LST I VAL) (BRKDWNADDTOA PTR I (BRKDWNDIFFA LST I VAL))))) (DECLARE%: EVAL@COMPILE (PROGN (PUTPROPS BRKDWNADDTOA DMACRO ((PTR I VAL) (* BOXIPLUS a little faster) (\BOXIPLUS (BRKDWNELT PTR I) VAL))) (PUTPROPS BRKDWNADDTOA MACRO (OPENLAMBDA (PTR I VAL) (SETA PTR ( ADD1 I) (IPLUS (ELT PTR (ADD1 I)) VAL))))) (PROGN (PUTPROPS BRKDWNDIFFA DMACRO (OPENLAMBDA (PTR I VAL) (PROG1 (IDIFFERENCE (BRKDWNELT PTR I) VAL) (BRKDWNSETA PTR I VAL)))) (PUTPROPS BRKDWNDIFFA MACRO ( OPENLAMBDA (PTR I VAL) (IDIFFERENCE (ELT PTR (ADD1 I)) (SETA PTR (ADD1 I) VAL))))) (PUTPROPS CPUTIME MACRO (NIL (CLOCK 2))) (PUTPROPS IBOXCOUNT MACRO (NIL (BOXCOUNT))) (PUTPROPS FBOXCOUNT MACRO (NIL ( BOXCOUNT (QUOTE FLOATP)))) (PROGN (PUTPROPS BRKDWNELT MACRO ((ARR I) (ELT ARR (ADD1 I)))) (PUTPROPS BRKDWNELT DMACRO (= . ELT))) (PROGN (PUTPROPS BRKDWNSETA DMACRO ((ARR I VAL) (\PUTBASEFIXP (BRKDWNELT ARR I) 0 VAL))) (PUTPROPS BRKDWNSETA MACRO ((ARR I VAL) (SETA ARR (ADD1 I) VAL)))) (PROGN (PUTPROPS BRKDWNARRAY DMACRO ((N) (PROG ((BLOCK (ARRAY (ADD1 N) (QUOTE POINTER) NIL 0))) (for I from 0 to N do ( SETA BLOCK I (NCREATE (QUOTE FIXP)))) (RETURN BLOCK)))) (PUTPROPS BRKDWNARRAY MACRO ((N) (ARRAY N N))) )) (RPAQQ BRKDWNLENGTH 0) (RPAQQ BRKDWNCOMPFLG NIL) (RPAQQ BRKDWNARGS (BDEXP BDX BDN BDY BDZ)) (RPAQQ BRKDWNTYPES ((TIME (CPUTIME) (LAMBDA (X) (FQUOTIENT X 1000))) (CONSES (CONSCOUNT)) (PAGEFAULTS (PAGEFAULTS)) (BOXES (IBOXCOUNT)) (FBOXES (FBOXCOUNT)))) (RPAQ BRKDWNFLTFMT (NUMFORMATCODE (QUOTE (FLOAT 7 3 NIL NIL 10)))) (RPAQQ BRKDWNTYPE TIME) (RPAQQ BRKDWNLABELS NIL) (RPAQQ BRKDWNLST NIL) (PUTPROPS BRKDWN COPYRIGHT ("Venue & Xerox Corporation" T 1982 1983 1984 1986 1990)) NIL