(FILECREATED " 2-Oct-86 16:51:12" {ERINYES}<TEST>TOOLS>TESTERLOADER.;3
 1750   

      previous date: "19-Aug-85 16:19:15" {DSK}<LISPFILES>TESTER>SOURCES>TESTERLOADER.;2)


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

(PRETTYCOMPRINT TESTERLOADERCOMS)

(RPAQQ TESTERLOADERCOMS
 ((INITVARS TEST.DIRECTORY NIL)
			   (P [IF (NULL TEST.DIRECTORY)
				  THEN
				  (CLRPROMPT)
				  (SETQ TEST.DIRECTORY (MKATOM (PROMPTFORWORD 
				    "Enter name of directory in which TESTER files are located :"
									      (DIRECTORYNAME T T)
									      NIL PROMPTWINDOW NIL
									      (QUOTE TTY]
			      (LOAD? (PACK* TEST.DIRECTORY (QUOTE VARBROWSER.DCOM)))
			      (LOAD? (PACK* TEST.DIRECTORY (QUOTE THERMOMETER.DCOM)))
			      (LOAD? (PACK* TEST.DIRECTORY (QUOTE TESTER.DCOM)))
			      (LOAD? (PACK* TEST.DIRECTORY (QUOTE TESTERVARS)))
			      (LOAD? (PACK* TEST.DIRECTORY (QUOTE RANDOM-GENERATOR.DCOM)))
			      (LOAD? (PACK* TEST.DIRECTORY (QUOTE TEST-REMOTE-EVAL.DCOM)))
			      (TEST.INIT))))

(RPAQ? TEST.DIRECTORY
 NIL)

(RPAQ? NIL
 NIL)
[IF (NULL TEST.DIRECTORY)
    THEN
    (CLRPROMPT)
    (SETQ TEST.DIRECTORY (MKATOM (PROMPTFORWORD 
				    "Enter name of directory in which TESTER files are located :"
						(DIRECTORYNAME T T)
						NIL PROMPTWINDOW NIL (QUOTE TTY]
(LOAD? (PACK* TEST.DIRECTORY (QUOTE VARBROWSER.DCOM)))
(LOAD? (PACK* TEST.DIRECTORY (QUOTE THERMOMETER.DCOM)))
(LOAD? (PACK* TEST.DIRECTORY (QUOTE TESTER.DCOM)))
(LOAD? (PACK* TEST.DIRECTORY (QUOTE TESTERVARS)))
(LOAD? (PACK* TEST.DIRECTORY (QUOTE RANDOM-GENERATOR.DCOM)))
(LOAD? (PACK* TEST.DIRECTORY (QUOTE TEST-REMOTE-EVAL.DCOM)))
(TEST.INIT)
(PUTPROPS TESTERLOADER COPYRIGHT ("XEROX Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP