Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0004/init.lisp
There are no other files named init.lisp in the archive.
(FILECREATED "19-NOV-81 14:38:04" <LISP>INIT.LISP;44 2667
changes to: INITCOMS
previous date: " 3-JUN-81 13:01:28" <LISP>INIT.LISP;42)
(PRETTYCOMPRINT INITCOMS)
(RPAQQ INITCOMS [(E (RESETSAVE CHANGECHAR NIL))
[DECLARE: FIRST
(P (SETSEPR (QUOTE (%| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
24 25 26))
1 FILERDTBL)
(COND ((EQ SYSTEMTYPE (QUOTE TENEX))
(JSYS 42Q 100Q)
(SELECTQ (PEEKC T)
((% %
)
(CLOSEF (INPUT))
(SETQ USERNAME NIL)
(GREET0)
(RESET))
NIL]
(VARS (CLEANUPOPTIONS (QUOTE (RC)))
(CLISPIFYENGLSHFLG T)
(HARDCOPYFLG)
(ADISOFILE)
(DISPLAYON)
(MSPRINTFLG 1)
(CHECKUNSAVEFLG T)
[COMPILEMODE (COND ((BOUNDP (QUOTE COMPILEMODE))
COMPILEMODE)
(T (QUOTE PDP-10]
(ALTO NIL))
(APPENDVARS (DIRECTORIES NIL LISPUSERS BLISPUSERS LISP)
(LISPUSERSDIRECTORIES LISPUSERS BLISPUSERS LISP))
(ALISTS (FONTDEFS PARC))
(P (FONTSET (QUOTE PARC])
(DECLARE: FIRST
(SETSEPR (QUOTE (%| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26))
1 FILERDTBL)
(COND ((EQ SYSTEMTYPE (QUOTE TENEX))
(JSYS 42Q 100Q)
(SELECTQ (PEEKC T)
((% %
)
(CLOSEF (INPUT))
(SETQ USERNAME NIL)
(GREET0)
(RESET))
NIL)))
)
(RPAQQ CLEANUPOPTIONS (RC))
(RPAQ CLISPIFYENGLSHFLG T)
(RPAQQ HARDCOPYFLG NIL)
(RPAQQ ADISOFILE NIL)
(RPAQQ DISPLAYON NIL)
(RPAQ MSPRINTFLG 1)
(RPAQ CHECKUNSAVEFLG T)
(RPAQ COMPILEMODE (COND ((BOUNDP (QUOTE COMPILEMODE))
COMPILEMODE)
(T (QUOTE PDP-10))))
(RPAQ ALTO NIL)
(APPENDTOVAR DIRECTORIES NIL LISPUSERS BLISPUSERS LISP)
(APPENDTOVAR LISPUSERSDIRECTORIES LISPUSERS BLISPUSERS LISP)
(ADDTOVAR FONTDEFS (PARC (FONTCHANGEFLG . T)
(FILELINELENGTH . 102)
(COMMENTLINELENGTH 116 . 126)
(LAMBDAFONTLINELENGTH . 95)
(FIRSTCOL . 60)
(PRETTYLCOM . 25)
(LISTFILESTR . ",
V N
WI 1000
")
(CHANGECHARTABSTR . "")
(DEVICE . .EP)
(FONTPROFILE (DEFAULTFONT (%)
1)
(BOLDFONT (%)
2)
(LITTLEFONT (%)
3)
(BIGFONT (%)
4)
(USERFONT (%)
BOLDFONT)
(COMMENTFONT (%)
LITTLEFONT)
(LAMBDAFONT (%)
BIGFONT)
(SYSTEMFONT)
(CLISPFONT (%)
BOLDFONT)
(CHANGEFONT)
(PRETTYCOMFONT (%)
BOLDFONT))))
(FONTSET (QUOTE PARC))
(DECLARE: DONTCOPY
(FILEMAP (NIL)))
(PUTPROPS INIT COPYRIGHTOWNER NONE)
STOP