(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)


(FILECREATED "23-May-2023 08:11:56" {DSK}<home>larry>il>medley>sources>FILESETS.;24

      :EDIT-BY "lmm"

      :PREVIOUS-DATE " 1-Mar-2023 07:49:03" {DSK}<home>larry>il>medley>sources>FILESETS.;23)

(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))

(RPAQQ 3LISPSET
 (MACROS DLAP BYTECOMPILER COMPILE))

(RPAQQ EXPORTFILES

       (IOCHAR 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 PASSWORDS INTERPRESS HARDCOPY CMLARRAY LLSUBRS LLETHER PUP UFS 
              DTDECLARE BIGBITMAPS))

(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)))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL)))
STOP