HOW TO SET UP FOR TESTING LOOPS ---------------------------------- Start with a fresh LISP.SYSOUT from {erinyes}lyric>basics>, dated 27-Apr-87. Give no INIT file Log in. Type into the exec: (SETQ IL:DISPLAYFONTDIRECTORIES '("{ERINYES}LYRIC>FONTS>")) CONN {ERINYES}Lyric>library> (il:load 'TEDIT.lcom) (il:tedit '{erinyes}loops>LOOPS-setup.tedit) This should bring up this document. Shift selected all lines below here into the EXEC: -------------------------------- (il:load 'FILEBROWSER.lcom) CONN {erinyes}lyric>lispusers> (il:load 'WHO-LINE.dfasl) (il:load 'filewatch.lcom) CONN {erinyes}lyric> (il:load 'CROCK.lcom) CONN {erinyes}lisp>lyric>internal>library> (il:load 'do-test.dfasl) (setq il:*DEFAULT-CLEANUP-COMPILER* 'cl:COMPILE-FILE) (setq il:ch.default.domain "AISNORTH") (SETQ IL:CH.DEFAULT.ORGANIZATION "XEROX") CONN |{PELE:AISNorth:Xerox}| (il:closew il:logow) (IL:CHANGEBACKGROUND 42405) (il:crock) Follow the instructions for loading loops from the release notes manual. As long as the workstation can get the font files from the network, steps 1-3 can be ignored in the Installation of Loops (4.3 of Release Notes) For step 4: The modified network version: CONN {ERINYES}Lyric>library> (il:load 'grapher.lcom) For steps 5-6: Insert Lyric LOOPS System #1 floppy, then type: (il:fb '{floppy}) and copy all files to {dsk}loops> Do the same for the Lyric LOOPS System #2 floppy Then type or shift select in an Interlisp window: CONN "{DSK}loops>" (LOAD 'LOOPS) Stuff the following lines into a temp file in core then shift select out the sysout command. (il:sysout '{erinyes}loops>test-loops.sysout) (il:login) (il:fb '{erinyes}loops>) ; Make sure the Loops stuff is copied to loops> load the right software, and change to loops stuff ?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8)) ?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8)) \\zē