(DEFINE-FILE-INFO §READTABLE "XCL" §PACKAGE "INTERLISP")

(filecreated "17-Oct-86 22:43:26" {eris}<lispcore>sources>filesets.\;33
 6648   

      |changes| |to:|  (vars 0lispset)

      |previous| |date:| "14-Oct-86 14:42:07" {eris}<lispcore>sources>filesets.\;32)


; Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986 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))
                     (vars exportfiles)
                     (vars makeinitfiles makeinittypes renametypes abcfiles readsysfiles
                           (maxcfiles (union '(renamefns) (union abcfiles (union makeinitfiles 
                                                                                 readsysfiles))))
                           databasefiles)
                     (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
 
       (package-conversion-table llfault llsubrs llbfs llnew fileio imageio llbasic llgc llinterp 
              llmvs llarrayelt llarith llfloat llbignum llread llchar llstk lldatatype llkey lltimer))

(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 compatibility dmisc cmlmacros cmllist cmlarray llsymbol llpackage))

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


(* END EXPORTED DEFINITIONS)


(rpaqq exportfiles
 
       (filesets modarith llparams llcode aerror aofd aprint 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 
              lltimer llether imageio proc llread passwords interpress hardcopy cmlarray))

(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 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)
           (cl: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)
           (cl: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 '(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)))

(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))
(declare\: dontcopy
  (filemap (nil)))
stop