Add FILESETS back

For some reason, in going back and forth, the hard link between the versioned and the unversioned got lost, and the unversioned was effectively deleted.  I did a copyfile to get things back in order

sources/FILESETS

@@ -0,0 +1,169 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
(FILECREATED "11-Sep-2021 00:01:52" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILESETS.;10
 6469   
+
+      changes to%:  (VARS MAKEINITTYPES 0LISPSET EXPORTFILES)
+
+      previous date%: "10-Sep-2021 19:53:14" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILESETS.;8)
+
+
+(* ; "
+Copyright (c) 1981-1990, 1998, 2021 by Xerox Corporation.
+")
+
+(PRETTYCOMPRINT FILESETSCOMS)
+
+(RPAQQ FILESETSCOMS

+       (
+
+(* ;;; "contains all of the lists of files which are used in various ways")

+
+        
+        (* ;; "I took out the EXPORT of the filesets because it led to inconsistency when one had loaded ABC.  -- Pavel")

+
+        
+        (* ;; "The file with the default EXTERNALFORMAT should come right after FILEIO, and particularly before ATERM.")

+
+        (VARS * FILESETS)
+        (VARS EXPORTFILES)
+        (VARS MAKEINITFILES MAKEINITTYPES RENAMETYPES ABCFILES READSYSFILES DATABASEFILES)
+        (VARS DEADFNS)))
+
+
+
+(* ;;; "contains all of the lists of files which are used in various ways")

+
+
+
+
+(* ;; 
+"I took out the EXPORT of the filesets because it led to inconsistency when one had loaded ABC.  -- Pavel"
+)

+
+
+
+
+(* ;; 
+"The file with the default EXTERNALFORMAT should come right after FILEIO, and particularly before ATERM."
+)

+
+
+(RPAQQ FILESETS
 (0LISPSET 1LISPSET 2LISPSET 3LISPSET))
+
+(RPAQQ 0LISPSET
 (PACKAGE-CONVERSION-TABLE LLFAULT LLSUBRS LLBFS LLNEW FILEIO EXTERNALFORMAT 
+                           IMAGEIO LLBASIC LLGC LLARRAYELT LLINTERP LLMVS DEFSTRUCT-RUN-TIME 
+                           SETF-RUNTIME CMLSEQBASICS LLARITH LLFLOAT LLBIGNUM LLREAD XCCS LLCHAR 
+                           LLSTK LLDATATYPE IOCHAR LLKEY LLTIMER))
+
+(RPAQQ 1LISPSET

+       (ASTACK DTDECLARE ATBL LLCODE ACODE COREIO AOFD ADIR PMAP VANILLADISK ATERM APRINT ABASIC 
+              AERROR AINTERRUPT MISC BOOTSTRAP CMLMACROS CMLEVAL CMLPROGV CMLSPECIALFORMS LLRESTART 
+              LLERROR LLSYMBOL LLPACKAGE PACKAGE-STARTUP CONDITION-PACKAGE XCL-PACKAGE PROC CMLARRAY
+              DSK UFS UFSCALLC PASSWORDS FONT LLDISPLAY APUTDQ COMPATIBILITY DMISC CMLMACROS CMLLIST
+              CMLCHARACTER CMLREADTABLE MAIKOLOADUPFNS MAIKOBITBLT MAIKOINIT))
+
+(RPAQQ 2LISPSET
 (MACHINEINDEPENDENT POSTLOADUP))
+
+(RPAQQ 3LISPSET
 (MACROS DLAP BYTECOMPILER COMPILE))
+
+(RPAQQ EXPORTFILES

+       (MODARITH LLPARAMS LLCODE AERROR AOFD APRINT ATERM LLARRAYELT LLDATATYPE LLNEW LLBASIC LLCHAR
+              LLSTK PMAP LLGC ATBL FILEIO EXTERNALFORMAT LLARITH LLFLOAT FONT LLKEY LLDISPLAY 
+              ADISPLAY AINTERRUPT RENAMEMACROS HLDISPLAY WINDOW MACROAUX ADDARITH LLFAULT LLTIMER 
+              IMAGEIO PROC XCCS LLREAD PASSWORDS INTERPRESS HARDCOPY CMLARRAY LLSUBRS))
+
+(RPAQQ MAKEINITFILES
 (MAKEINIT MEM I-NEW))
+
+(RPAQQ MAKEINITTYPES

+       ((NIL INIT (0 1)
+             2LISPSET 1600)
+        (SMALLINIT SMALLINIT (LLFAULT LLSUBRS LLNEW FILEIO EXTERNALFORMAT 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 RENAMETYPES

+       ((I (FILES LLPARAMS LLCODE LLARRAYELT LLCHAR LLNEW LLBASIC LLDATATYPE LLGC LLSTK RENAMEMACROS
+                  MODARITH LLFAULT LLKEY LLBFS LLTIMER)
+           (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 
+
+                  (* ;; "YOU MUST REMAKE THIS FILE using (DORENAME 'R) (after CONNing to library) whenever the SYSOUT layout changes in LLPARAMS (e.g., if MDSTypeTable moves)")

+
+                  (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))
+
+(RPAQQ DATABASEFILES
 (0LISPSET 1LISPSET (2LISPSET ACODE)
+                                (3LISPSET DLAP)
+                                (4LISPSET DFILE DMISC)
+                                7LISPSET
+                                (8LISPSET MAKEINIT MEM)
+                                9LISPSET
+                                (10LISPSET LLPARAMS)
+                                (NIL CHECKARRAYSPACE MAKEINEW PMEMSTATS PPAGESTATS LLFCOMPILE)))
+
+(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 1986 1987 1988 1989 1990 
+1998 2021))
+(DECLARE%: DONTCOPY
+  (FILEMAP (NIL)))
+STOP