(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP") (IL:FILECREATED "10-Nov-93 17:55:58" ("compiled on " IL:|{DSK}export>lispcore>sources>CLTL2>TIME.;1|) "19-Feb-93 17:03:08" "COMPILE-FILEd" IL:|in| "Medley 19-Feb-93 ..." IL:|dated| "19-Feb-93 18:20:42") (IL:FILECREATED "22-May-91 09:08:00" IL:|{DSK}sources>lispcore>sources>TIME.;2| 11273 IL:|previous| IL:|date:| "17-May-90 15:51:58" IL:|{DSK}sources>lispcore>sources>TIME.;1|) (IL:RPAQQ IL:TIMECOMS ((IL:STRUCTURES STATS-OBJECT) (IL:FUNCTIONS %COPY-TIME-STATS %STATS-OBJECT-DIFFERENCE) (IL:FUNCTIONS %GET-TIMING-INFO TIME-CALL TIME) (IL:FUNCTIONS %CAPTURE-COUNTERS-BEFORE %CAPTURE-COUNTERS-AFTER TIME-FORMAT %PRINT-TIMING-ITEM %PRINT-TIMING-INFO) ( IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:FUNCTIONS %CAPTURE-BEFORE-STATS %CAPTURE-AFTER-STATS %MOVE-FIXP-FIELD)) (IL:SPECIAL-FORMS TIME) (IL:COMMANDS "TIME") (IL:* IL:|;;| "Interlisp Timeall function") (IL:FNS IL:TIMEALL) (IL:* IL:|;;| "file package stuff") (IL:PROP IL:FILETYPE TIME) (IL:PROP IL:MAKEFILE-ENVIRONMENT TIME) (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOEVAL@COMPILE IL:DONTCOPY (IL:LOCALVARS . T)) (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOEVAL@COMPILE IL:DONTCOPY IL:COMPILERVARS (IL:ADDVARS (IL:NLAMA) (IL:NLAML IL:TIMEALL) (IL:LAMA))))) (SET-PARSED-STRUCTURE (QUOTE STATS-OBJECT) T (QUOTE (PS STATS-OBJECT MAKE-STATS-OBJECT (ELAPSED-TIME TIME-BLOCK DATA-COUNTERS DATATYPES) LIST #:NIL #:NIL "STATS-OBJECT-" (MAKE-STATS-OBJECT) #:NIL DEFAULT-STRUCTURE-PRINTER #:NIL #:NIL 0 #:NIL ((ELAPSED-TIME (IL:CLOCK 0) T #:NIL 0 STATS-OBJECT-ELAPSED-TIME) (TIME-BLOCK (IL:|create| IL:MISCSTATS) T #:NIL 1 STATS-OBJECT-TIME-BLOCK) ( DATA-COUNTERS (MAKE-ARRAY (1+ IL:|\\MaxTypeNumber|) :ELEMENT-TYPE (QUOTE (SIGNED-BYTE 32)) :INITIAL-ELEMENT 0) T #:NIL 2 STATS-OBJECT-DATA-COUNTERS) (DATATYPES #:NIL T #:NIL 3 STATS-OBJECT-DATATYPES)) #:NIL #:NIL #:NIL #:NIL (:ACCESSOR :PREDICATE) #:NIL #:NIL #:NIL))) STATS-OBJECT-ELAPSED-TIME :D8 (IL:L (0 STATS-OBJECT)) @#:NIL #:NIL () STATS-OBJECT-TIME-BLOCK :D8 (IL:L (0 STATS-OBJECT)) @#:NIL #:NIL () STATS-OBJECT-DATA-COUNTERS :D8 (IL:L (0 STATS-OBJECT)) @#:NIL #:NIL () STATS-OBJECT-DATATYPES :D8 (IL:L (0 STATS-OBJECT)) @#:NIL #:NIL () (ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE STATS-OBJECT)) MAKE-STATS-OBJECT :D8 (IL:L (0 IL:|-args-|)) eHkJIó¢±¤j ±Hk»ºKdJó¢±¥¿l ¼Hk¾½NdMó¢±§¿`kÔgogj _¿i_¿Hk_¿_¿OdOó¢±‡¿h__¿l _¿jOIkOLlOOOšlOOOJdagð¦lÔZ±ÿKkØa±ÿQagð–KkØa±ÿZKlÔ[±ÿCagð–NkØa±ÿnNlÔ^±ÿAagð—OkØa±ÿsOlÔ_±ÿ](173 %SET-NTH 159 %SET-NTH 148 %SET-NTH 139 %SET-NTH 127 MAKE-LIST 88 MAKE-ARRAY 45 IL:\\ALLOCBLOCK 21 IL:CLOCK) (251 :DATATYPES 228 :DATA-COUNTERS 205 :TIME-BLOCK 184 :ELAPSED-TIME 81 :INITIAL-ELEMENT 71 :ELEMENT-TYPE 64 IL:|\\MaxTypeNumber|) ( 76 (SIGNED-BYTE 32)) %COPY-TIME-STATS :D8 (IL:L (1 DESTINATION-BLOCK 0 REFERENCE-BLOCK)) [AlÐ@lÐlÄAlÐ@lÐlÄAlÐ@lÐlÄAlÐ@lÐlÄAlÐ@lÐlÄAl Ð@l ÐlÄAlÐ@lÐlÄAlÐ@lÐlÄA#:NIL #:NIL () %STATS-OBJECT-DIFFERENCE :D8 (IL:L (1 AFTER 0 BEFORE)) %@@AAô0H j_¿¾NOó’±åA_@Õ_¿jOO¿K_l Il Õ_¿OlO¿K_l Il Õ_¿OlO¿K_l Il Õ_¿Ol O¿K_"l Il Õ_ ¿O"lO ¿K_&l Il Õ_$¿O&lO$¿K_*l Il Õ_(¿O*lO(AJ½O¼ML¶HO¶ÕML·¿OkÔ_¿±þþ(262 IL:\\PUTBASEFIXP 247 IL:\\GETBASEFIXP 239 IL:\\GETBASEFIXP 228 IL:\\PUTBASEFIXP 213 IL:\\GETBASEFIXP 205 IL:\\GETBASEFIXP 194 IL:\\PUTBASEFIXP 179 IL:\\GETBASEFIXP 171 IL:\\GETBASEFIXP 160 IL:\\PUTBASEFIXP 145 IL:\\GETBASEFIXP 137 IL:\\GETBASEFIXP 126 IL:\\PUTBASEFIXP 111 IL:\\GETBASEFIXP 103 IL:\\GETBASEFIXP 92 IL:\\PUTBASEFIXP 77 IL:\\GETBASEFIXP 69 IL:\\GETBASEFIXP 58 %SET-NTH 25 LENGTH) #:NIL () %GET-TIMING-INFO :D8 (IL:L (0 IL:|-args-|)) ” eka laºla»lHñ‘k‚la¼J^ ¿`N ¿N ¿LkÕj_¿_¿OOóœjI¿OkÔ_¿°ïjI ]K_ ¿`O ¿O ¿JK M$(141 %STATS-OBJECT-DIFFERENCE 133 %CAPTURE-COUNTERS-AFTER 122 %COPY-TIME-STATS 107 IL:CLOCK0 97 IL:\\MVLIST 59 IL:CLOCK0 51 %COPY-TIME-STATS 37 %CAPTURE-COUNTERS-BEFORE) (113 IL:\\MISCSTATS 43 IL:\\MISCSTATS) () TIME-CALLA0001 :D8 #:NIL h#:NIL #:NIL () TIME-CALL :D8 (IL:L (0 IL:|-args-|) IL:F 19 *TRACE-OUTPUT*) 9ekaÑHl»ºKJó¢±ÁW&¼i½Hl_¿¾OdNó¢±Ã¿h]_¿Hl_¿_¿OdOó¢±Ä¿_¿Hl_¿_¿OdOó¢±Â¿k_¿gOO"IOO O _$O"O MŸLoOO¿LoO id LO OO$$Kdagð¦lÔ[±ÿ.kØa±ÿ0agð—OkØa±ÿ6OlÔ_±ÿ"agð—OkØa±ÿ8OlÔ_±ÿ agð—OkØa±ÿ6OlÔ_±ÿ"(204 %PRINT-TIMING-INFO 194 %PRINT-TIMING-ITEM 176 TIME-FORMAT 159 %STATS-OBJECT-DIFFERENCE 148 IL:\\MVLIST 143 %GET-TIMING-INFO 131 %GET-TIMING-INFO 114 MAKE-STATS-OBJECT 109 MAKE-STATS-OBJECT 104 MAKE-STATS-OBJECT 72 IL:DATATYPES) (291 :REPEAT 265 :DATA-TYPES 239 :TIMED-FORM 218 :OUTPUT 122 TIME-CALLA0001) ( 183 "Elapsed time" 167 "Timing for ~[~;~:;~:* ~D x~]:~20T ~S~&") |expand-TIME| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) 8@!H¹HºggghIhhggIhJ#:NIL (44 QUOTE 39 :TIMED-FORM 25 LAMBDA 20 FUNCTION 15 TIME-CALL) () (IL:SETF-MACRO-FUNCTION (QUOTE TIME) (QUOTE |expand-TIME|)) %CAPTURE-COUNTERS-BEFORE :D8 (IL:L (0 VECTOR)) %@ kÕ!jHó‘@@ºHY JI·¿HkÕ¸°é(25 IL:BOXCOUNT 5 LENGTH) #:NIL () %CAPTURE-COUNTERS-AFTER :D8 (IL:L (0 VECTOR)) $@ j"HIó¡@@»IZ KJ·¿IkÔ¹°é(24 IL:BOXCOUNT 5 LENGTH) #:NIL () TIME-FORMAT :D8 (IL:L (0 IL:|-args-|)) ¢ ekaalaºHl2OOó²O»Igð²Mgk½¼JK°;Oa_¿OµOh__¿OkÔ_°ÉO&_¿°òdýnMkØ]ñ¨hl4 ¿µêMLgl_¿¾IJK°dýnOkØ_ñ¨hl4 ¿µèON(152 IL:\\LISPERROR 106 IL:\\LISPERROR) (118 FORMAT 43 XCL:EXEC-FORMAT 35 :EXEC) () %PRINT-TIMING-ITEM :D8 (IL:L (4 ALWAYS-P 3 TIME-P 2 NUM 1 STRING 0 STREAM)) <D¤Bjó´5C²%@oABo jHó‘j€H@oAB(57 TIME-FORMAT 43 TIME-FORMAT 27 %/) #:NIL ( 50 "~&~A ~20,5T= ~9D~&" 22 1000.0 15 "~&~A ~20,5T= ~9,3F seconds~&") %PRINT-TIMING-INFO :D8 (IL:L (2 DATA-TYPES 1 STATS-OBJECT 0 STREAM)) + AAH `kÔ¾½NdMó‘¿Mj_¿_¿OOó’±ÊI@oHl i@oHl i@oHl i@oAHl ÕHl ÕHl ÕHl Õi@oHl @oHl @oHl Iœ@oI¿@o HO¶[jó²"O \B²I˜JKLh&ºˆKLhhZ¹OkÔ_¿±ÿ(262 IL:\\TYPENAMEFROMNUMBER 245 TIME-FORMAT 233 TIME-FORMAT 219 %PRINT-TIMING-ITEM 214 IL:\\GETBASEFIXP 200 %PRINT-TIMING-ITEM 195 IL:\\GETBASEFIXP 181 %PRINT-TIMING-ITEM 176 IL:\\GETBASEFIXP 162 %PRINT-TIMING-ITEM 155 IL:\\GETBASEFIXP 146 IL:\\GETBASEFIXP 137 IL:\\GETBASEFIXP 128 IL:\\GETBASEFIXP 112 %PRINT-TIMING-ITEM 106 IL:\\GETBASEFIXP 92 %PRINT-TIMING-ITEM 86 IL:\\GETBASEFIXP 72 %PRINT-TIMING-ITEM 66 IL:\\GETBASEFIXP 15 LENGTH) (20 IL:|\\MaxTypeNumber|) ( 240 "~%" 227 "~&Storage allocated:~%~{~{~D ~A~}~^, ~}~&" 206 "Disk operations" 187 "Swap writes" 168 "Page faults" 118 "net compute time" 98 "Disk i/o time" 78 "reclaim time" 58 "SWAP time") |interpret-TIMEA0001| :D8 (IL:F 0 TIMED-FORM IL:F 1 ENV) PQ (6 EVAL) #:NIL () |interpret-TIME| :D8 (IL:L (1 XCL::$$ENV 0 XCL::$$TAIL) IL:P 7 *APPLYHOOK* IL:P 6 *EVALHOOK* IL:P 5 ENV IL:P 0 TIMED-FORM) @A@¹gI µpoºgI µck»gI µQg¼0A½Io ggHgJM gKM gLM °–°µ°Ÿ(129 TIME-CALL 123 EVAL 111 EVAL 99 EVAL 76 IL:KEYWORD-TEST 52 IL:FIND-KEYWORD 37 IL:FIND-KEYWORD 18 IL:FIND-KEYWORD) (116 :OUTPUT 104 :REPEAT 92 :DATA-TYPES 86 :TIMED-FORM 81 |interpret-TIMEA0001| 59 *TRACE-OUTPUT* 46 :OUTPUT 31 :REPEAT 12 :DATA-TYPES) ( 71 (:OUTPUT :REPEAT :DATA-TYPES) 25 (IL:DATATYPES)) (IL:PUTPROP (QUOTE TIME) (QUOTE IL:SPECIAL-FORM) (QUOTE |interpret-TIME|)) IL:|exec-TIMEA0001| :D8 (IL:F 0 FORM IL:F 1 ENV) PQ (6 EVAL) #:NIL () IL:|exec-TIME| :D8 (IL:L (1 IL:$$MACRO-ENV 0 IL:$$MACRO-FORM) IL:P 4 ENV IL:P 1 FORM) P@1H¹HºgJ µ6k»A¼Jo ggggKL °Ì(74 TIME-CALL 68 EVAL 41 IL:KEYWORD-TEST 21 IL:FIND-KEYWORD) (61 :REPEAT 56 :EXEC 51 :OUTPUT 46 IL:|exec-TIMEA0001| 15 :REPEAT) ( 36 (:REPEAT)) (IL:SET-DOCUMENTATION "TIME" (QUOTE IL:COMMANDS) "Time evaluation of form, output here") (IL:PUTHASH "TIME" (QUOTE ((FORM &KEY REPEAT &ENVIRONMENT ENV) IL:|exec-TIME| :EVAL)) IL:*EXEC-COMMAND-TABLE*) IL:TIMEALL :D8 (IL:L (3 IL:INTERPFLG 2 IL:TIMEWHAT 1 IL:NUMBEROFTIMES 0 IL:TIMEFORM) IL:P 4 IL:LCFIL IL:P 3 IL:STRF) ³BµŽdið’¿h‡!HµVI!A3£kb¿ih¼»ggh@h gghg g@gJgA £Hºh„HºH¸IJ µ Jdgð•°h°i ¿oi ¿i ¿h ¹±ÿd(173 IL:\\NCONC2 166 IL:TERPRI 159 IL:PRIN1 147 IL:PRIN1 124 IL:DATATYPEP 104 TIME-CALL 80 IL:GETSTREAM 59 IL:COMPILE1 7 IL:DATATYPES) (133 TIME 97 :REPEAT 91 :DATA-TYPES 85 :TIMED-FORM 75 IL:OUTPUT 69 :OUTPUT 64 IL:TIMEDUMMYFUNCTION 48 IL:LAMBDA 43 IL:TIMEDUMMYFUNCTION) ( 153 " is not a datatype.") (IL:PUTPROPS TIME IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS TIME IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "LISP")) (IL:PUTPROPS TIME IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991)) #:NIL