(FILECREATED " 2-Jun-86 18:57:24" {PHYLUM}<LANNING>LOOPS>LOOPS-TIMING.;4
 3513   

      changes to:  (METHODS Timing.NewTest)
		   (VARS LOOPS-TIMINGCOMS)
		   (FNS Timing.NewTest Run-timing)

      previous date: "28-May-86 14:41:49" {PHYLUM}<LANNING>LOOPS>LOOPS-TIMING.;3)


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT LOOPS-TIMINGCOMS)

(RPAQQ LOOPS-TIMINGCOMS
 ((* File created by LANNING)
			   (CLASSES Timing)
			   (METHODS Timing.NewTest Timing.Test)
			   (FNS Run-timing)
			   (VARS (*Timing-Inst* (_ (
$
 Timing)
						   New)))
			   (GLOBALVARS *Timing-Inst*)
			   (ADDVARS (GLOBALVARS *Timing-Inst*))
			   (INSTANCES)
			   (MACROS Time-it)))



(* File created by LANNING)


(DEFCLASSES Timing)
[DEFCLASS Timing

   (MetaClass Class Edited:                                  (* edited: "28-May-86 13:25")
)
   (Supers Object)
   (ClassVariables (cv1 cv1 doc                              (* cv1 doc)
))
   (InstanceVariables (iv1 iv1 doc                           (* iv1 doc)
)
		      (iv2 iv2 doc                           (* iv2 doc)
)
		      (iv3 iv3 doc                           (* iv3 doc)
))]

[METH Timing  NewTest (x y z)

      (* New method template)]


[METH Timing  Test NIL

      (* New method template)]


(DEFINEQ

(Timing.NewTest

  (Method ((Timing NewTest)
	   self x y z)                                       (* smL " 2-Jun-86 13:42")

                                                             (* New method template)

	  self))

(Timing.Test

  (Method ((Timing Test)
	   self)                                             (* edited: "28-May-86 13:26")

                                                             (* New method template)

	  self))
)
(DEFINEQ

(Run-timing

  [LAMBDA (file)                                             (* smL " 2-Jun-86 13:50")


          (* * Run a bunch of timing tests)



    (
DRIBBLE
 (
OR
 file (
PROMPTFORWORD
 "Dribble file name?")))
    (Time-it "Basic loop" T)
    (Time-it "Global variable fetch" *Timing-Inst*)
    (Time-it "Fetching a field from a datatype" (fetch
 iDescrs of
 *Timing-Inst*))
    (
PutValue
 *Timing-Inst* (
QUOTE
 iv3)
		NotSetValue)
    (Time-it "Inherited GetValue" (
GetValue
 *Timing-Inst* (
QUOTE
 iv3)))
    (
PutValue
 *Timing-Inst* (
QUOTE
 iv3)
		"Local value for iv3")
    (Time-it "Local GetValue" (
GetValue
 *Timing-Inst* (
QUOTE
 iv3)))
    (Time-it "Local PutValue" (
PutValue
 *Timing-Inst* (
QUOTE
 iv3)
					  "Local value for iv3"))
    (Time-it "Get inherited IV prop" (
GetValue
 *Timing-Inst* (
QUOTE
 iv3)
						 (
QUOTE
 doc)))
    (
PutValue
 *Timing-Inst* (
QUOTE
 iv3)
		(
QUOTE
 test)
		"Local property value")
    (Time-it "Put IV prop" (
PutValue
 *Timing-Inst* (
QUOTE
 iv3)
				       (
QUOTE
 test)
				       "Local property value"))
    (Time-it "Function call" (Timing.Test
 *Timing-Inst* 1 2 3))
    (Time-it "Message send" (_ *Timing-Inst* NewTest 1 2 3))
    (
DRIBBLE
])
)

(RPAQ *Timing-Inst*
 (_ (
$
 Timing)
			 New))
(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS *Timing-Inst*)
)

(ADDTOVAR GLOBALVARS
 *Timing-Inst*)
(DECLARE: EVAL@COMPILE 
[DEFMACRO Time-it (doc-string form)
	  (BQUOTE (PROGN (printout NIL T , doc-string T .PPF (QUOTE , form)
				   T)
			 (TIMEALL , form 10000)
			 (printout NIL T]
)
(PUTPROPS LOOPS-TIMING COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1318 1790 (Timing.NewTest 1328 . 1558) (Timing.Test 1560 . 1788)) (1791 3083 (
Run-timing 1801 . 3081)))))
STOP