(FILECREATED "30-Jan-85 22:36:34" {ERIS}<LISPCORE>SOURCES>FILESETS.;15 6900
changes to: (VARS 1LISPSET 7LISPSET)
previous date: "14-Jan-85 13:21:41" {ERIS}<LISPCORE>SOURCES>FILESETS.;14)
(* Copyright (c) 1981, 1982, 1983, 1984, 1985 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 (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 VANILLADISK MOD44IO ATERM
APRINT ABASIC AERROR AINTERRUPT MISC BOOTSTRAP PROC LLETHER PUP LEAF
PASSWORDS FONT LLDISPLAY APUTDQ LLHUNK COMPATIBILITY))
(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 HARDCOPY PRESS PUPPRINT HLDISPLAY MENU WINDOW WBREAK
INSPECT BSP CHAT TRSERVER 10MBDRIVER LLNS DISKDLION SPP COURIER NSPRINT
CLEARINGHOUSE 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 (HOST RELEASE RESET) (* lmm " 2-Oct-84 17:45")
(PROG (DIR NEWDIRECTORIES NEWLISPUSERSDIRECTORIES)
(OR HOST (SETQ HOST (QUOTE ERIS)))
(OR RELEASE (SETQ RELEASE (COND
((BOUNDP (QUOTE MAKESYSNAME))
MAKESYSNAME)
(T (QUOTE CAROL)))))
(SETQ DIR (SELECTQ RELEASE
(LISPCORE "<LISPCORE>")
(CONCAT "<LISP>" RELEASE ">")))
(SETQ NEWLISPUSERSDIRECTORIES (LIST (PACK* "{" HOST "}" DIR "LIBRARY>")
(PACK* "{" HOST "}" DIR "LISPUSERS>")
(PACK* "{" HOST "}" "<LISPUSERS>")))
(SETQ NEWDIRECTORIES (APPEND NEWLISPUSERSDIRECTORIES
(LIST (PACK* "{" HOST "}" DIR "SOURCES>"))))
(RPAQ LISPUSERSDIRECTORIES (APPEND NEWLISPUSERSDIRECTORIES (AND (NOT RESET)
(LDIFFERENCE
LISPUSERSDIRECTORIES
NEWLISPUSERSDIRECTORIES))))
(RPAQ DIRECTORIES (APPEND NEWDIRECTORIES (AND (NOT RESET)
(LDIFFERENCE DIRECTORIES NEWDIRECTORIES)))))))
)
(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 LLCHAR 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 LLCHAR 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 (\CALLME . *))
(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 1985))
(DECLARE: DONTCOPY
(FILEMAP (NIL (2354 3539 (SETDIRECTORIES 2364 . 3537)))))
STOP