(FILECREATED " 8-Feb-86 15:26:33" {DSK}<LISPFILES2>IMPROVEDDCOMS>STATISTICS.;1
 1409   

      changes to:  (VARS STATISTICSCOMS))


(* Copyright (c) 1986 by Quintus Computer Systems, Inc. All rights reserved.)

(PRETTYCOMPRINT STATISTICSCOMS)

(RPAQQ STATISTICSCOMS
 ((VARS (QP.LAST.RUNTIME 0)) (ADDVARS (GLOBALVARS QP.LAST.RUNTIME)) (FNS 
PROLOG.STATISTIC \BYTEDIFF)))

(RPAQQ QP.LAST.RUNTIME
 0)

(ADDTOVAR GLOBALVARS
 QP.LAST.RUNTIME)
(DEFINEQ

(PROLOG.STATISTIC

(LAMBDA (KEYWORD) (SELECTQ KEYWORD (runtime (PROG (NOW INCR) (SETQ NOW (PLUS (CLOCK 2) (CLOCK 3))) (
SETQ INCR (DIFFERENCE NOW QP.LAST.RUNTIME)) (SETQ QP.LAST.RUNTIME NOW) (RETURN (LIST NOW INCR)))) ((
memory core) (LIST (TIMES (VMEMSIZE) 512) 0)) ((program heap) (LIST (DIFFERENCE (TIMES (VMEMSIZE) 512)
 (LLSH 1 22)) 0)) (global←stack (LIST (\BYTEDIFF (get.24 H) QP.init.H) (\BYTEDIFF (get.24 TR) (get.24 
H)))) (local←stack (PROG (P) (SETQ P (\ADDBASE (if (before E CP) then (get.24 CP) else (get.24 E)) 512
)) (RETURN (LIST (\BYTEDIFF P QP.init.E) (\BYTEDIFF QP.memtop P))))) (trail (LIST (\BYTEDIFF QP.init.E
 (get.24 TR)) 0)) (garbage←collection (LIST 0 0 0)) (stack←shifts (LIST 0 0 0)) NIL)))

(\BYTEDIFF

(LAMBDA (P Q) (PLUS (LLSH (DIFFERENCE (\HILOC P) (\HILOC Q)) 17) (LLSH (DIFFERENCE (\LOLOC P) (\LOLOC 
Q)) 1))))
)
(PUTPROPS STATISTICS COPYRIGHT ("Quintus Computer Systems, Inc" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (453 1316 (PROLOG.STATISTIC 463 . 1185) (\BYTEDIFF 1187 . 1314)))))
STOP