1
0
mirror of synced 2026-01-28 21:11:37 +00:00
Files
Interlisp.medley/internal/test/loops/LOOPS-SETUP.TEDIT

3 lines
2.0 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
HOW TO SET UP FOR TESTING LOOPS
----------------------------------
Start with a fresh LISP.SYSOUT from {erinyes}<lisp>lyric>basics>, dated 27-Apr-87.
Give no INIT file
Log in.
Type into the exec:
(SETQ IL:DISPLAYFONTDIRECTORIES '("{ERINYES}<lisp>LYRIC>FONTS>"))
CONN {ERINYES}<lisp>Lyric>library>
(il:load 'TEDIT.lcom)
(il:tedit '{erinyes}<cate3>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}<lisp>lyric>lispusers>
(il:load 'WHO-LINE.dfasl)
(il:load 'filewatch.lcom)
CONN {erinyes}<lispusers>lyric>
(il:load 'CROCK.lcom)
CONN {erinyes}<test>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}<CATE3>|
(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}<lisp>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}<lispfiles>loops>
Do the same for the Lyric LOOPS System #2 floppy
Then type or shift select in an Interlisp window:
CONN "{DSK}<lispfiles>loops>"
(LOAD 'LOOPS)
Stuff the following lines into a temp file in core then shift select out the sysout command.
(il:sysout '{erinyes}<cate3>loops>test-loops.sysout)
(il:login)
(il:fb '{erinyes}<cate3>loops>)
; Make sure the Loops stuff is copied to <lispfiles>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))
\\