28 lines
1.7 KiB
Plaintext
28 lines
1.7 KiB
Plaintext
(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
|