(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