(FILECREATED "24-Oct-2020 22:17:36" ("compiled on " 
{DSK}<home>larry>ilisp>ENVOS>MISC>TEST>Tools>TESTERLOADER.;1) " 9-Apr-2000 18:01:32" bcompl'd in 
"Medley 3.5 PARC Full Sysout  4-Nov-2003 ..." dated " 4-Nov-2003 23:32:48")
(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)
(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))
NIL