(FILECREATED " 6-Jun-84 16:21:54" {ERIS}<LISP>SOURCES>FILESETS.;2 6488
changes to: (FNS SETDIRECTORIES)
previous date: " 5-Mar-84 14:38:00" {ERIS}<LISP>SOURCES>FILESETS.;1)
(* Copyright (c) 1981, 1982, 1983, 1984 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT FILESETSCOMS)
(RPAQQ FILESETSCOMS ((* contains all of the lists of files which are used in various ways)
[EXPORT (VARS * FILESETS)
(FNS SETDIRECTORIES)
(P (SETDIRECTORIES)
(SELECTQ (SYSTEMTYPE)
(D)
(ADDTOVAR POSTGREETFORMS (SETDIRECTORIES]
(VARS EXPORTFILES)
(VARS MAKEINITFILES MAKEINITTYPES MAXC.MAKEINITFILES RENAMETYPES ABCFILES
READSYSFILES [MAXCFILES (UNION (QUOTE (RENAMEFNS))
(UNION ABCFILES (UNION MAKEINITFILES
READSYSFILES]
DATABASEFILES)
(ADDVARS (MIGRATIONS (NEWMANUAL . BLISP)))
(VARS DEADFNS)))
(* contains all of the lists of files which are used in various ways)
(* FOLLOWING DEFINITIONS EXPORTED)
(RPAQQ FILESETS (0LISPSET 1LISPSET 2LISPSET 3LISPSET 4LISPSET 5LISPSET 6LISPSET 7LISPSET 8LISPSET
9LISPSET))
(RPAQQ 0LISPSET (LLFAULT LLSUBRS LLBFS LLNEW FILEIO IMAGEIO LLBASIC LLGC LLINTERP LLARRAYELT LLARITH
LLFLOAT LLREAD LLCHAR LLSTK LLDATATYPE LLKEY))
(RPAQQ 1LISPSET (ASTACK DTDECLARE ATBL LLCODE IOCHAR COREIO AOFD ADIR PMAP MOD44IO ATERM APRINT
ABASIC AERROR AINTERRUPT MISC BOOTSTRAP PROC LLETHER PUP LEAF PASSWORDS FONT
LLDISPLAY APUTDQ))
(RPAQQ 2LISPSET (ACODE MACHINEINDEPENDENT POSTLOADUP))
(RPAQQ 3LISPSET (MACROS DLAP BYTECOMPILER COMPILE))
(RPAQQ 4LISPSET (EDIT WEDIT HELPDL PRETTY COMMENT BREAK ADVISE LOADFNS FILEPKG DFILE DMISC))
(RPAQQ 5LISPSET (HIST UNDO SPELL DWIM WTFIX CLISP DWIMIFY CLISPIFY RECORD ASSIST))
(RPAQQ 6LISPSET (MSANALYZE MSPARSE MASTERSCOPE HPRINT BRKDWN MATCH))
(RPAQQ 7LISPSET (ADISPLAY DEXEC AARITH AFONT PRESS HLDISPLAY MENU WINDOW WBREAK INSPECT BSP CHAT
TRSERVER 10MBDRIVER LLNS DISKDLION SPP COURIER NSFILING INTERPRESS ADDARITH
MACROAUX DEDIT DSPRINTDEF NEWPRINTDEF TTYIN DPUPFTP FLOPPY))
(RPAQQ 8LISPSET (MAKEINIT MEM RENAMEFNS))
(RPAQQ 9LISPSET (LLFCOMPILE VMEM READSYS APS PCALLSTATS UPCSTATS REMOTEVMEM))
(DEFINEQ
(SETDIRECTORIES
[LAMBDA NIL (* mjs " 6-Jun-84 16:21")
((LAMBDA (S L)
(SELECTQ (SYSTEMTYPE)
[TENEX (SETQ L (QUOTE (LISPUSERS)))
(SETQ S (QUOTE (BLISP NEWLISP LISP LISPUSERS]
[D (SETQ L (QUOTE ({ERIS}<LISPCORE>LIBRARY> {ERIS}<LISPCORE>LISPUSERS>
{ERIS}<LISP>LIBRARY> {ERIS}<LISPUSERS>)))
(SETQ S (QUOTE ({ERIS}<LISPCORE>SOURCES> {ERIS}<LISPCORE>LIBRARY>
{ERIS}<LISPCORE>LISPUSERS>
{ERIS}<LISPNEW>SOURCES>
{ERIS}<LISP>SOURCES>
{ERIS}<LISP>LIBRARY> {ERIS}<LISPUSERS>]
(SHOULDNT "Say, What kind of (SYSTEMTYPE) is this?"))
(RPAQ LISPUSERSDIRECTORIES (APPEND L (LDIFFERENCE LISPUSERSDIRECTORIES L)))
(RPAQ DIRECTORIES (APPEND S (LDIFFERENCE DIRECTORIES S])
)
(SETDIRECTORIES)
(SELECTQ (SYSTEMTYPE)
(D)
(ADDTOVAR POSTGREETFORMS (SETDIRECTORIES)))
(* END EXPORTED DEFINITIONS)
(RPAQQ EXPORTFILES (FILESETS MODARITH LLPARAMS LLCODE AERROR AOFD ATERM LLARRAYELT LLDATATYPE LLNEW
LLBASIC LLCHAR LLSTK PMAP LLGC ATBL FILEIO LLARITH LLFLOAT FONT LLKEY
LLDISPLAY ADISPLAY AINTERRUPT PUP RENAMEMACROS HLDISPLAY MENU WINDOW
MACROAUX ADDARITH LLFAULT LLETHER IMAGEIO PROC LLNS LLREAD PASSWORDS))
(RPAQQ MAKEINITFILES (MAKEINIT MEM I-NEW))
(RPAQQ MAKEINITTYPES ((NIL INIT (0 1)
2LISPSET 1600)
(SMALLINIT SMALLINIT (LLFAULT LLSUBRS LLNEW FILEIO LLBASIC LLGC LLINTERP LLARITH LLREAD
LLCHAR TINYPATCH))
(MACROTEST MACROTEST ((MACROTEST)
0 1)
2LISPSET)
(MICROTEST MICROTEST ((MICROTEST LLFAULT LLSTK LLSUBRS LLKEY LLBFS)))
(NANOTEST NANOTEST ((MICROTEST LLSUBRS)))
(NULL NULL ((DUMMY)))
(MILLITEST MILLITEST
((MACROTEST LLFAULT LLSUBRS LLNEW LLBASIC LLGC LLINTERP LLARITH LLFLOAT LLARRAYELT
LLSTK LLDATATYPE LLKEY ABASIC LLCHAR ASTACK MISC APUTDQ)))
(CHECKARRAYS CHECKARRAYS (CHECKARRAYSPACE 0 1)
2LISPSET)))
(RPAQQ MAXC.MAKEINITFILES (DCODEFOR10))
(RPAQQ RENAMETYPES ((I (FILES LLPARAMS LLCODE LLARRAYELT LLNEW LLBASIC LLDATATYPE LLGC LLSTK
RENAMEMACROS MODARITH LLFAULT LLKEY LLBFS)
(RENAMEDFILE . I-NEW)
(SUBNAME . MKI.SUBFNS)
(COMSNAME . INEWCOMS)
(EXTRACOMS (VARS INITPTRS INITVALUES)
(DECLARE: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
MAKEINIT)))
(MKI.SUBFNS)
(INEWCOMS)
(VALUES . INITVALUES)
(PTRS . INITPTRS)
(PREFIX . I.)
(VAG2FN . I.VAG2))
(R (FILES LLCODE LLPARAMS LLBASIC LLDATATYPE LLNEW ACODE LLARRAYELT LLINTERP
LLSTK RENAMEMACROS MODARITH LLFAULT)
(RENAMEDFILE . RDSYS)
(SUBNAME . RD.SUBFNS)
(COMSNAME . RDCOMS)
(EXTRACOMS (FILES VMEM)
(VARS RDVALS RDPTRS)
(DECLARE: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
VMEM)))
(RD.SUBFNS)
(RDCOMS)
(PTRS . RDPTRS)
(PREFIX . V)
(VAG2FN . VVAG2)
(VALUES . RDVALS)
(RDPTRS)
(RDVALUES))))
(RPAQQ ABCFILES (LOADABC COMPILEBANG SAMEDIR WHEREIS COMPILEFORMSLIST CHECKSET CMACROS DCODEFOR10
DTDECLARE BYTECOMPILER DLAP LLCODE ACODE MACROAUX))
(RPAQQ READSYSFILES (RDSYS READSYS VMEM REMOTEVMEM))
(RPAQ MAXCFILES (UNION (QUOTE (RENAMEFNS))
(UNION ABCFILES (UNION MAKEINITFILES READSYSFILES))))
(RPAQQ DATABASEFILES (0LISPSET 1LISPSET (2LISPSET ACODE)
(3LISPSET DLAP)
(4LISPSET DFILE DMISC)
7LISPSET
(8LISPSET MAKEINIT MEM)
9LISPSET
(10LISPSET LLPARAMS)
(NIL CHECKARRAYSPACE MAKEINEW PMEMSTATS PPAGESTATS LLFCOMPILE)))
(ADDTOVAR MIGRATIONS (NEWMANUAL . BLISP))
(RPAQQ DEADFNS ((PUTBASE \PUTBASE)
(GETBASE \GETBASE)
(ADDBASE \ADDBASE)
(GETBASEBYTE \GETBASEBYTE)
(PUTBASEBYTE \PUTBASEBYTE)
(PUTBASEPTR \PUTBASEPTR)
(HILOC \HILOC)
(LOLOC \LOLOC)
(VAG2 \VAG2)
(PAGEBASE NIL)
(PAGELOC NIL)
(WordsPerPage WORDSPERPAGE)
(ALTOMACRO DMACRO)
(\STACKSPACE ??)
(GETBASEPTR \GETBASEPTR)
(FPLUS2)
(FTIMES2)
(CREATECELL \CREATECELL)))
(PUTPROPS FILESETS COPYRIGHT ("Xerox Corporation" 1981 1982 1983 1984))
(DECLARE: DONTCOPY
(FILEMAP (NIL (2270 3079 (SETDIRECTORIES 2280 . 3077)))))
STOP