(FILECREATED " 2-Feb-86 19:00:52" {DSK}<LISPFILES2>STATISTICS.LSP;2
 1881   

      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.LSP COPYRIGHT ("Quintus Computer Systems, Inc" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (449 1784 (PROLOG.STATISTIC 459 . 1583) (\BYTEDIFF 1585 . 1782)))))
STOP