1 <SETG AC-VECTOR <IUVECTOR 16>>
2 <GDECL (AC-VECTOR) UVECTOR>
4 <DEFINE PRINT-INFO ("TUPLE" IGNORE "AUX" (ACV:UVECTOR ,AC-VECTOR)
5 (TM:FLOAT <- <TIME>:FLOAT ,INITIAL-CPU:FLOAT>)
8 <- <CALL SYSOP TIME-JSYS '(RETURN 1)>:FIX
11 <CALL SYSOP GTRPI *400000* '(RETURN ALL)>
12 <PRINT-MANY ,OUTCHAN PRINC "CPU time: " .TM
14 Real time: " .RT " (" <* </ .TM .RT> 100.0> "%)"
16 Traps: " <- <1 .ACV> ,INITIAL-TRAPS:FIX>
18 Faults: " <- <2 .ACV> ,INITIAL-FAULTS:FIX>
20 Pager time: " </ <FLOAT <- <3 .ACV> ,INITIAL-PAGER:FIX>> 1000.0>>>
23 <SETG INITIAL-TIME <CALL SYSOP TIME-JSYS '(RETURN 1)>>
24 <SETG INITIAL-CPU <TIME>>
25 <CALL SYSOP GTRPI *400000* '(RETURN ALL)>
26 <SETG INITIAL-TRAPS <1 ,AC-VECTOR>>
27 <SETG INITIAL-FAULTS <2 ,AC-VECTOR>>
28 <SETG INITIAL-PAGER <3 ,AC-VECTOR>>
29 <SETG QUIT-CLASS <CLASS "QUIT" 1 T>>
30 <SETG QUIT-HANDLER <ON <HANDLER "QUIT" ,PRINT-INFO>>>>