(FILECREATED " 7-Dec-84 00:02:43" {ERIS}<LISPCORE>SOURCES>KNOWNFILES.;13 19295
changes to: (RECORDS FILENOTE)
(FNS UPDATEKNOWNFILES)
(VARS LIBRARYFILES KNOWNDIRECTORIES KNOWNFILESCOMS)
previous date: " 4-Dec-84 20:53:01" {ERIS}<LISPCORE>SOURCES>KNOWNFILES.;11)
(* Copyright (c) 1984 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT KNOWNFILESCOMS)
(RPAQQ KNOWNFILESCOMS ((COMS (* "Do this to get the function \REMOVEOLDVERSIONS ")
(FILES (SYSLOAD FROM LISPUSERS)
WHEREIS))
(DECLARE: EVAL@COMPILE DONTCOPY (RECORDS FILENOTE))
(FNS UPDATEKNOWNFILES)
(VARS KNOWNDIRECTORIES)
[VARS * (MAPCAR KNOWNDIRECTORIES (FUNCTION (LAMBDA (X)
(PACK* X (QUOTE FILES]
(VARS SOURCEFILES SYSTEMFILES LIBRARYFILES HACKSFILES)))
(* "Do this to get the function \REMOVEOLDVERSIONS ")
(FILESLOAD (SYSLOAD FROM LISPUSERS)
WHEREIS)
(DECLARE: EVAL@COMPILE DONTCOPY
[DECLARE: EVAL@COMPILE
(RECORD FILENOTE (ROOTNAME ICREATIONDATE FULLNAME DIRECTORY DIRVARLSTNAME))
]
)
(DEFINEQ
(UPDATEKNOWNFILES
[LAMBDA NIL (* JonL " 6-Dec-84 23:46")
(PROG ((HTBL (HASHARRAY 500))
DIRNAME)
(DECLARE (SPECVARS HTBL DIRNAME))
[MAPC KNOWNDIRECTORIES
(FUNCTION (LAMBDA (DIR)
(PROG ((DIRNAME (PACK* DIR (QUOTE FILES)))
L)
(SETQ L
(for FILE ROOT EXT in [\REMOVEOLDVERSIONS (FILDIR (PACKFILENAME
(QUOTE HOST)
(QUOTE {ERIS})
(QUOTE DIRECTORY)
DIR
(QUOTE NAME)
(QUOTE *]
when (AND [OR [NULL (SETQ EXT (FILENAMEFIELD FILE (QUOTE EXTENSION]
(NOT (FMEMB EXT
(QUOTE (DCOM DATABASE TXT ALL PRESS TED
TEDIT BRAVO TTY DOC COM]
(LISPSOURCEFILEP FILE))
collect (* The test on EXTENSION is a quick, cheap way out.)
(push (GETHASH (SETQ ROOT (U-CASE (ROOTFILENAME FILE)))
HTBL)
(create FILENOTE
ROOTNAME ← ROOT
ICREATIONDATE ←(GETFILEINFO FILE (QUOTE
ICREATIONDATE))
FULLNAME ← FILE
DIRECTORY ← DIR
DIRVARLSTNAME ← DIRNAME))
ROOT))
(SETATOMVAL DIRNAME (INTERSECTION L L]
(* * Now, remove any cross-directory duplicates, keeping the most recent version)
[MAPHASH (PROG1 HTBL (* Comment PPLossage))
(FUNCTION (LAMBDA (FILENOTES)
(bind K I WINNERDIR (IDATE ← 0)
(#KNOWNDIRECTORIES ←(LENGTH KNOWNDIRECTORIES))
(N ← MAX.SMALLP) for X in FILENOTES
when [AND (IGEQ (SETQ I (fetch (FILENOTE ICREATIONDATE) of X))
IDATE)
(PROGN [SETQ K (IDIFFERENCE #KNOWNDIRECTORIES
(LENGTH (MEMB (fetch (FILENOTE
DIRECTORY)
of X)
KNOWNDIRECTORIES]
(OR (IGREATERP I IDATE)
(ILESSP K N]
do (* This is finding the guy with the most recent date,
which secondarily is found on a directory "earlier" on
the KNOWNDIRECTORIES list)
(SETQ WINNERDIR (fetch (FILENOTE DIRECTORY) of X))
(SETQ N K)
(SETQ IDATE I)
finally (for X in FILENOTES when (NEQ WINNERDIR (fetch (FILENOTE DIRECTORY)
of X))
do (* If there are two or more files with the same
creation date, then save the one found on the "first"
directory in KNOWNDIRECTORIES)
(SETATOMVAL (fetch (FILENOTE DIRVARLSTNAME) of X)
(DREMOVE (fetch (FILENOTE ROOTNAME) of X)
(GETATOMVAL (fetch (FILENOTE
DIRVARLSTNAME)
of X]
(* Then sort according to the ROOTFILENAME)
[MAPC (PROG1 KNOWNDIRECTORIES (* Comment PPLossage))
(FUNCTION (LAMBDA (DIR)
(PROG [(DIRNAME (PACK* DIR (QUOTE FILES]
(SETATOMVAL DIRNAME (SORT (GETATOMVAL DIRNAME)
(FUNCTION ALPHORDER]
(* * After updating all the relevant variables, we MAKEFILE to save the stuff)
(MAKEFILE (QUOTE {ERIS}<LISPCORE>SOURCES>KNOWNFILES)
(QUOTE (NEW])
)
(RPAQQ KNOWNDIRECTORIES (<LISPCORE>SOURCES> <LISPCORE>LIBRARY> <LISPCORE>LISPUSERS>
<LISP>HARMONY>LIBRARY> <LISPUSERS>))
(RPAQQ <LISPCORE>SOURCES>FILES (10MBDRIVER 1100DSKPATCH AARITH ABASIC ABC ACODE ADDARITH ADIR
ADISPLAY ADVISE AERROR AFONT AINTERRUPT AOFD APRINT APUTDQ
ASSIST ASTACK ATBL ATERM ATTACHEDWINDOW BAD-COREIO
BADFILEIO BOOTSTRAP BREAK BRKDWN BSP BYTECOMPILER CHAT
CLEARINGHOUSE CLISP CLISPIFY COMMENT COMPATIBILITY COMPILE
COREIO COURIER CREATIONDATE DDLCOLORHAX DEDIT DEXEC DFILE
DISKDLION DLAP DLFIXINIT DLIONFS DMISC DPUPFTP DSPRINTDEF
DTDECLARE DWIM DWIMIFY EDIT FILEIO FILEPKG FILESETS FLOPPY
FONT GETFILEINFOPATCH HARDCOPY HELPDL HIST HITATOMS
HLDISPLAY HPRINT IMAGEIO INSPECT INTERPRESS IOCHAR
JOANSLISPUTIL KNOWNFILES LEAF LLARITH LLARRAYELT LLBASIC
LLBFS LLCHAR LLCODE LLDATATYPE LLDISPLAY LLETHER LLFAULT
LLFCOMPILE LLFLOAT LLGC LLINTERP LLKEY LLNEW LLNS LLPARAMS
LLREAD LLSTK LLSUBRS LOADFNS MACHINEINDEPENDENT MACROAUX
MACROS MAKE-ABCDATABASE MAKEINIT MASTERSCOPE MATCH MEM
MENU MICROTEST MISC MISCOPS MOD44IO MODARITH MSANALYZE
MSPARSE NEWBITBLTS NEWPRINTDEF NSFILING NSPRINT PASSWORDS
PCBLT PCBUS PMAP PORTTEST POSTLOADUP PRESS PRETTY PROC PUP
PUPCHAT RECORD RENAMEFNS RENAMEMACROS SPELL SPLICE SPP
TRSERVER TTYIN UBFLOAT UNDO VMEM VOLUMEALLOCATIONMAP
VOLUMEDIRECTORY VOLUMEFILEMAP WBREAK WEDIT WINDOW WTFIX))
(RPAQQ <LISPCORE>LIBRARY>FILES (APS ARCHIVEDIR BIG BITMAPFNS BROWSER BSEARCH BUSEXTENDER BUSMASTER
CHECKSET CIRCLPRINT CMLARRAY CMLSPECIALFORMS COLOR COLORDEMO
COLORPOLYGONS COMPARETEXT COMPILEBANG COMPMODEREC COPYFILES
COREHAX DATABASEFNS DDLCOLOR DECL DSKTEST DSPVTS DUMPLOAD
EDITMARK ETHERRECORDS EVALSERVER FILEBANGER FILEBROWSER FTPSERVER
FXPRINTER GATEWAY GCHAX GETFONT GRAPEVINE GRAPHER GRAPHZOOM HANOI
HASH HLCOLOR ICONW IMAGEOBJ KINETIC LAFITE LAFITEBROWSE
LAFITEFIND LAFITEMAIL LAFITESEND LAMBDATRAN LISPDIAGNOSTICS
LLCOLOR LOADDM LOGOCLOCK MACROTEST MACROTESTAUX MAILCLIENT
MAINTAIN MAKEDATABASE MAKEDIR MAKEDSKSAVER MESATYPES MINISERVE
MTP NSMAIL NSTOASCIIDISPLAYFONT PCALLSTATS PEANO PRINTER
PROTOTYPE.SEQUENTIALRUNS PUPIDSERVER READAIS READNUMBER READSYS
REMOTEVMEM RS232 RS232CHAT RS232EXEC RS232FTP RS232LOGIN SAMEDIR
SEQUENTIAL SINGLEFILEINDEX SNOOPY SPY SYSEDIT TEDITABBREV
TEDITCOMMAND TEDITHCPY TEDITHISTORY TEDITPAGE TEDITSELECTION
TELERAID TIMESERVE TRANSOR TSET TWOD UPCSTATS UTILPROC WHEREIS
WINK))
(RPAQQ <LISPCORE>LISPUSERS>FILES NIL)
(RPAQQ <LISP>HARMONY>LIBRARY>FILES (DLIONFSSCAVENGE FLOATARRAY FPOPSPATCH FXPARALLELPRINTER
SEQUENTIALPROTOTYPE.SEQUENTIALRUNS TEDIT
TEDITFILE TEDITFIND TEDITLOOKS TEDITMENU
TEDITSCREEN TEDITWINDOW TEXTOFD TFBRAVO))
(RPAQQ <LISPUSERS>FILES (ACTIVEREGIONS ALL ANIMATE ARCLEANUP AREDIT ARITHDECLS ARITHMAC BANNER
BIZGRAFIX BLTDEMO BOUNCE BOUNDARY BQUOTE CACHEFILES CALENDAR
CHATEMACS CHUNK-MENU COLORUTILITIES COMHACK COMMENTS
COMPAREFILES COMPILEFORMSLIST COPYIMAGE CROCK CRYPT DATEFNS
DEDITK DEPENDENT-WINDOWS DICTIONARY DISPVERTLIST DOCTOR DPRESS
DRAWFILE EDITBITMAP EDITFONT EDITHIST EDITMACROS EDITREC
ELISPFNS EMACS EMACSUSER EXEC EXECFNS FASTNAMEFIELD FONTMENU
FONTN FULLSCREEN GEV.LSP GEVDEMO.LSP GLISP-TEST.LISP GLISP.LSP
GRAPHCALLS HEADLINE HISTMENU HISTOGRAM IMAGEDEMO IMCOMPARE
IMNAME IMTEDIT IMTRAN INMENU IOWAITDAEMON JARGON KAL
KEYWORD-MENU LABEL LANDPRESS LATTICER LCROCK LESSON1-EXTRAS
LESSON2-EXTRAS LIFE LINEDEMO LISPPACKAGEDATABASE LISTEN
LOADFILES LSET LUPINE MACWINDOW MAILFNS MAILMENU MAILOPS
MAKEGRAPH MAKELABEL MATHFNS MAZE MM1201 MOVE-WINDOWS MSGLAFITE
MSPATCH MULTIMENU MULTIW.LSP NEWEXEC NEWHASH.LSP NOBOX NOTEPAD
NOTEPAD-CORESTYLES NOWAITPRINT NQUEENS NSTRANSLATIONS ODOMETER
PACMAN PAGEHOLD PATCHUP PDB PERFORMTRAN PERMSTATUS PIECE-MENUS
PLAY PLURAL PQUOTE PREEMPTIVE PRESSTOIP PRINTL PRINTOUT
PROFILETOOL PROMPTREMINDERS QIX READBRUSH RECORDER REDUCE
REMEVALCLIENT REMEVALSERVER REMIND RPC SAMPLER SETF SHOW
SIGNAL SIMPLEFNS SIMPLIFY SKIPTRAILER SNAPSCROLL SOLITAIRE
SPACEWINDOW SPYBUTTON STOCKICONS STYLESHEET SYSTAT TESTPAT
TINYTIDY TMENU TRACEIN TRAJECTORY-FOLLOWER TREEDISPLAY TTY
TTYIO TUTOR TUTORLESSON1 TUTORLESSON2 TXDT VT100KP VTCHAT WAM
WINDOWACCESS YAPFF))
(RPAQQ SOURCEFILES (<LISPCORE>SOURCES>10MBDRIVER <LISPCORE>SOURCES>AARITH <LISPCORE>SOURCES>ABASIC
<LISPCORE>SOURCES>ACODE <LISPCORE>SOURCES>ADDARITH <LISPCORE>SOURCES>ADIR
<LISPCORE>SOURCES>ADISPLAY <LISPCORE>SOURCES>ADVISE <LISPCORE>SOURCES>AERROR
<LISPCORE>SOURCES>AFONT <LISPCORE>SOURCES>AINTERRUPT <LISPCORE>SOURCES>AOFD
<LISPCORE>SOURCES>APRINT <LISPCORE>SOURCES>APUTDQ <LISPCORE>SOURCES>ASSIST
<LISPCORE>SOURCES>ASTACK <LISPCORE>SOURCES>ATBL <LISPCORE>SOURCES>ATERM
<LISPCORE>SOURCES>ATTACHEDWINDOW <LISPCORE>SOURCES>BOOTSTRAP <LISPCORE>SOURCES>BREAK
<LISPCORE>SOURCES>BRKDWN <LISPCORE>SOURCES>BSP <LISPCORE>SOURCES>BYTECOMPILER
<LISPCORE>SOURCES>CHAT <LISPCORE>SOURCES>CLEARINGHOUSE <LISPCORE>SOURCES>CLISP
<LISPCORE>SOURCES>CLISPIFY <LISPCORE>SOURCES>COMMENT <LISPCORE>SOURCES>COMPATIBILITY
<LISPCORE>SOURCES>COMPILE <LISPCORE>SOURCES>COREIO <LISPCORE>SOURCES>COURIER
<LISPCORE>SOURCES>DEDIT <LISPCORE>SOURCES>DEXEC <LISPCORE>SOURCES>DFILE
<LISPCORE>SOURCES>DISKDLION <LISPCORE>SOURCES>DLAP <LISPCORE>SOURCES>DLFIXINIT
<LISPCORE>SOURCES>DLIONFS <LISPCORE>SOURCES>DMISC <LISPCORE>SOURCES>DPUPFTP
<LISPCORE>SOURCES>DSPRINTDEF <LISPCORE>SOURCES>DTDECLARE <LISPCORE>SOURCES>DWIM
<LISPCORE>SOURCES>DWIMIFY <LISPCORE>SOURCES>EDIT <LISPCORE>SOURCES>FILEIO
<LISPCORE>SOURCES>FILEPKG <LISPCORE>SOURCES>FLOATARRAY <LISPCORE>SOURCES>FLOPPY
<LISPCORE>SOURCES>FONT <LISPCORE>SOURCES>HARDCOPY <LISPCORE>SOURCES>HELPDL
<LISPCORE>SOURCES>HIST <LISPCORE>SOURCES>HITATOMS <LISPCORE>SOURCES>HLDISPLAY
<LISPCORE>SOURCES>HPRINT <LISPCORE>SOURCES>IMAGEIO <LISPCORE>SOURCES>INSPECT
<LISPCORE>SOURCES>INTERPRESS <LISPCORE>SOURCES>IOCHAR <LISPCORE>SOURCES>KNOWNFILES
<LISPCORE>SOURCES>LEAF <LISPCORE>SOURCES>LLARITH <LISPCORE>SOURCES>LLARRAYELT
<LISPCORE>SOURCES>LLBASIC <LISPCORE>SOURCES>LLBFS <LISPCORE>SOURCES>LLCHAR
<LISPCORE>SOURCES>LLCODE <LISPCORE>SOURCES>LLDATATYPE <LISPCORE>SOURCES>LLDISPLAY
<LISPCORE>SOURCES>LLETHER <LISPCORE>SOURCES>LLFAULT <LISPCORE>SOURCES>LLFCOMPILE
<LISPCORE>SOURCES>LLFLOAT <LISPCORE>SOURCES>LLGC <LISPCORE>SOURCES>LLINTERP
<LISPCORE>SOURCES>LLKEY <LISPCORE>SOURCES>LLNEW <LISPCORE>SOURCES>LLNS
<LISPCORE>SOURCES>LLPARAMS <LISPCORE>SOURCES>LLREAD <LISPCORE>SOURCES>LLSTK
<LISPCORE>SOURCES>LLSUBRS <LISPCORE>SOURCES>LOADFNS <LISPCORE>SOURCES>MACHINEINDEPENDENT
<LISPCORE>SOURCES>MACROAUX <LISPCORE>SOURCES>MACROS <LISPCORE>SOURCES>MACROTEST
<LISPCORE>SOURCES>MAKEINIT <LISPCORE>SOURCES>MASTERSCOPE <LISPCORE>SOURCES>MATCH
<LISPCORE>SOURCES>MEM <LISPCORE>SOURCES>MENU <LISPCORE>SOURCES>MICROTEST
<LISPCORE>SOURCES>MISC <LISPCORE>SOURCES>MISCOPS <LISPCORE>SOURCES>MOD44IO
<LISPCORE>SOURCES>MODARITH <LISPCORE>SOURCES>MSANALYZE <LISPCORE>SOURCES>MSPARSE
<LISPCORE>SOURCES>NEWPRINTDEF <LISPCORE>SOURCES>NSFILING <LISPCORE>SOURCES>NSPRINT
<LISPCORE>SOURCES>PASSWORDS <LISPCORE>SOURCES>PMAP <LISPCORE>SOURCES>PORTTEST
<LISPCORE>SOURCES>POSTLOADUP <LISPCORE>SOURCES>PRESS <LISPCORE>SOURCES>PRETTY
<LISPCORE>SOURCES>PROC <LISPCORE>SOURCES>PUP <LISPCORE>SOURCES>PUPCHAT
<LISPCORE>LIBRARY>RDSYS <LISPCORE>SOURCES>RECORD <LISPCORE>SOURCES>RENAMEFNS
<LISPCORE>SOURCES>RENAMEMACROS <LISPCORE>SOURCES>SPELL <LISPCORE>SOURCES>SPLICE
<LISPCORE>SOURCES>SPP <LISPCORE>SOURCES>TRSERVER <LISPCORE>SOURCES>TTYIN
<LISPCORE>SOURCES>UBFLOAT <LISPCORE>SOURCES>UNDO <LISPCORE>SOURCES>VMEM
<LISPCORE>SOURCES>VOLUMEALLOCATIONMAP <LISPCORE>SOURCES>VOLUMEDIRECTORY
<LISPCORE>SOURCES>VOLUMEFILEMAP <LISPCORE>SOURCES>WBREAK <LISPCORE>SOURCES>WEDIT
<LISPCORE>SOURCES>WINDOW <LISPCORE>SOURCES>WTFIX))
(RPAQQ SYSTEMFILES (<LISPCORE>LIBRARY>APS <LISPUSERS>AREDIT <LISPCORE>LIBRARY>BIG <LISPUSERS>BLACKOUT
<LISPCORE>LIBRARY>BROWSER <LISPCORE>LIBRARY>BSEARCH <LISP>LIBRARY>CHECKSET
<LISPCORE>LIBRARY>CMLARRAY <LISPCORE>LIBRARY>CMLSPECIALFORMS <LISPCORE>LIBRARY>DSPVTS
<LISPUSERS>EDITBITMAP <LISPUSERS>EDITMACROS <LISPCORE>LIBRARY>FILEBROWSER
<LISPCORE>LIBRARY>GCHAX <LISPCORE>LIBRARY>GRAPEVINE <LISPCORE>LIBRARY>GRAPHER
<LISPCORE>LIBRARY>HASH <LISPUSERS>HISTMENU <LISPCORE>LIBRARY>ICONW
<LISPCORE>LIBRARY>IMAGEOBJ <LISPUSERS>IMNAME <LISPCORE>LIBRARY>LAFITE
<LISPCORE>LIBRARY>LAFITEBROWSE <LISPCORE>LIBRARY>LAFITEMAIL <LISPCORE>LIBRARY>LAFITESEND
<LISPUSERS>LCROCK <LISPCORE>LIBRARY>MAILCLIENT <LISPUSERS>MAILOPS <LISPCORE>LIBRARY>MAINTAIN
<LISPCORE>LIBRARY>MTP <LISPCORE>LISPUSERS>PAGEHOLD <LISPCORE>LIBRARY>PCALLSTATS
<LISPCORE>LIBRARY>READNUMBER <LISPCORE>LIBRARY>READSYS <LISPCORE>LIBRARY>REMOTEVMEM
<LISPCORE>LIBRARY>RS232 <LISPCORE>LIBRARY>RS232CHAT <LISPCORE>LIBRARY>RS232EXEC
<LISPCORE>LIBRARY>RS232FTP <LISPCORE>LIBRARY>RS232LOGIN <LISPCORE>LIBRARY>SINGLEFILEINDEX
<LISPCORE>LIBRARY>SNOOPY <LISPCORE>LIBRARY>SPY <LISPCORE>LIBRARY>TEDIT
<LISPCORE>LIBRARY>TEDITABBREV <LISPCORE>LIBRARY>TEDITCOMMAND <LISPCORE>LIBRARY>TEDITFILE
<LISPCORE>LIBRARY>TEDITFIND <LISPCORE>LIBRARY>TEDITHCPY <LISPCORE>LIBRARY>TEDITHISTORY
<LISPCORE>LIBRARY>TEDITLOOKS <LISPCORE>LIBRARY>TEDITMENU <LISPCORE>LIBRARY>TEDITPAGE
<LISPCORE>LIBRARY>TEDITSCREEN <LISPCORE>LIBRARY>TEDITSELECTION <LISPCORE>LIBRARY>TEDITWINDOW
<LISPCORE>LIBRARY>TEXTOFD <LISPCORE>LIBRARY>TFBRAVO <LISPCORE>LIBRARY>WHEREIS))
(RPAQQ LIBRARYFILES (<LISPUSERS>ACTIVEREGIONS <LISPCORE>LIBRARY>ARCHIVEDIR
<LISPCORE>LIBRARY>ARCLEANUP <LISPUSERS>ARITHDECLS <LISPUSERS>ARITHMAC <LISPUSERS>BANNER
<LISPCORE>LIBRARY>BITMAPFNS <LISP>LIBRARY>BITMAPOBJ <LISPUSERS>BIZGRAFIX
<LISP>LIBRARY>BUSEXTENDER <LISPUSERS>CALENDAR <LISP>LIBRARY>CIRCLPRINT
<LISP>LIBRARY>CLISPENG <LISP>LIBRARY>COLOR <LISPUSERS>COLORUTILITIES <LISPUSERS>COMPAREFILES
<LISPCORE>LISPUSERS>COMPARETEXT <LISP>LIBRARY>COMPILEBANG <LISP>LIBRARY>COMPMODEREC
<LISPCORE>LIBRARY>COPYFILES <LISP>LIBRARY>COREHAX <LISPUSERS>CROCK
<LISPCORE>LIBRARY>DATABASEFNS <LISP>LIBRARY>DECL <LISPUSERS>DPRESS <LISPCORE>LIBRARY>DSKTEST
<LISP>LIBRARY>DUMPLOAD <LISPUSERS>EDITFONT <LISPCORE>LIBRARY>EDITMARK <LISPUSERS>EDITREC
<LISPUSERS>EMACS <LISPUSERS>EMACSUSER <LISPCORE>LIBRARY>EVALSERVER <LISP>LIBRARY>FILEBANGER
<LISPUSERS>FONTMENU <LISPUSERS>FONTN <LISPCORE>LIBRARY>FTPSERVER <LISPCORE>LIBRARY>FXPRINTER
<LISPCORE>LIBRARY>GATEWAY <LISPCORE>LIBRARY>GETFONT <LISPUSERS>GRAPHCALLS
<LISP>LIBRARY>GRAPHZOOM <LISPUSERS>HEADLINE <LISPUSERS>HISTOGRAM <LISP>LIBRARY>HLCOLOR
<LISPUSERS>ICON <LISPCORE>LISPUSERS>IMCOMPARE <LISPUSERS>IMTEDIT <LISPUSERS>IMTRAN
<LISPUSERS>INMENU <LISPCORE>LIBRARY>JMHT <LISPCORE>LIBRARY>LAFITEFIND
<LISPCORE>LISPUSERS>LANDPRESS <LISPUSERS>LATTICER <LISP>LIBRARY>LLCOLOR <LISP>LIBRARY>LOADDM
<LISPCORE>LIBRARY>LOGOCLOCK <LISPCORE>LIBRARY>MAKEDATABASE <LISP>LIBRARY>MAKEDIR
<LISPUSERS>MAKEGRAPH <LISPUSERS>MATHFNS <LISPUSERS>MAZE <LISPCORE>LIBRARY>MESATYPES
<LISPCORE>LIBRARY>MINISERVE <LISPUSERS>MM1201 <LISPUSERS>MSGLAFITE <LISPUSERS>NOTEPAD
<LISPUSERS>NOTEPAD-CORESTYLES <LISPUSERS>NQUEENS <LISPCORE>LIBRARY>NSMAIL <LISPUSERS>OPS5S1
<LISPUSERS>PATCHUP <LISPUSERS>PERFORMTRAN <LISPUSERS>PERMSTATUS <LISPUSERS>PQUOTE
<LISPUSERS>PRESSTOIP <LISP>LIBRARY>PRINTER <LISPUSERS>PRINTOUT <LISPUSERS>PROFILETOOL
<LISPCORE>LISPUSERS>PROMPTREMINDERS <LISPCORE>LIBRARY>PROTOTYPE.SEQUENTIALRUNS
<LISPCORE>LIBRARY>PUPIDSERVER <LISPCORE>LIBRARY>READAIS <LISPUSERS>RECORDER
<LISPUSERS>REMEVALCLIENT <LISPUSERS>REMEVALSERVER <LISPUSERS>REMIND <LISPUSERS>RPC
<LISPCORE>LIBRARY>SAMEDIR <LISPCORE>LIBRARY>SEQUENTIAL <LISPUSERS>SIGNAL
<LISP>LIBRARY>SMALLFONTS <LISPUSERS>SNAPSCROLL <LISPUSERS>SPACEWINDOW <LISPUSERS>STOCKICONS
<LISPUSERS>STREAMPNAME <LISPUSERS>STYLESHEET <LISPUSERS>SYSTAT <LISP>LIBRARY>TIMESERVE
<LISPUSERS>TMENU <LISPUSERS>TRACEIN <LISPUSERS>TRAJECTORY-FOLLOWER <LISPUSERS>TREEDISPLAY
<LISP>LIBRARY>UPCSTATS))
(RPAQQ HACKSFILES (<LISPUSERS>ALL <LISPUSERS>ANIMATE <LISPUSERS>BLTDEMO <LISPUSERS>CHUNK-MENU
<LISPCORE>LIBRARY>COLORDEMO <LISPCORE>LIBRARY>COLORPOLYGONS <LISPUSERS>COMHACK
<LISPUSERS>COMMENTS <LISPUSERS>COMPILEFORMSLIST <LISPUSERS>DATEFNS
<LISPCORE>LIBRARY>DDLCOLOR <LISPUSERS>DEDITK <LISPUSERS>DEPENDENT-WINDOWS
<LISPUSERS>DICTIONARY <LISPUSERS>DISPVERTLIST <LISPUSERS>DMSG <LISPUSERS>DOCTOR
<LISPUSERS>DRAWFILE <LISPUSERS>DWIMLOAD <LISPUSERS>ELISPFNS <LISPUSERS>EXEC
<LISPUSERS>EXECFNS <LISPUSERS>FASTLOAD <LISPUSERS>FASTNAMEFIELD <LISPUSERS>FE
<LISPUSERS>FULLSCREEN <LISPUSERS>GEV.LSP <LISPUSERS>GEVDEMO.LSP <LISPUSERS>GLISP-TEST.LISP
<LISPUSERS>GLISP.LSP <LISPCORE>LIBRARY>HANOI <LISPUSERS>IMAGEDEMO <LISPUSERS>INTERPPATCH
<LISPUSERS>IOWAITDAEMON <LISPUSERS>JARGON <LISPUSERS>KAL <LISPUSERS>KEYWORD-MENU
<LISPCORE>LIBRARY>KINETIC <LISPUSERS>LABEL <LISPUSERS>LESSON1-EXTRAS
<LISPUSERS>LESSON2-EXTRAS <LISPUSERS>LIFE <LISPUSERS>LINEDEMO <LISPUSERS>LISTEN
<LISPUSERS>LOADFILES <LISPUSERS>LSET <LISPUSERS>LUPINE <LISPUSERS>MACWINDOW
<LISPUSERS>MAILFNS <LISPUSERS>MAKELABEL <LISPUSERS>MOVE-WINDOWS <LISPUSERS>MULTIFILEINDEX
<LISPUSERS>MULTIMENU <LISPUSERS>MULTIW.LSP <LISPUSERS>NEWEXEC <LISPUSERS>NOBOX
<LISPUSERS>ODOMETER <LISPUSERS>PACMAN <LISP>LIBRARY>PEANO <LISPUSERS>PIECE-MENUS
<LISPUSERS>PLAY <LISP>LIBRARY>POLYGONS <LISPUSERS>PRINTL <LISPUSERS>QIX <LISPUSERS>REDUCE
<LISPUSERS>SAMPLER <LISPUSERS>SDR <LISPUSERS>SIMPLEFNS <LISPUSERS>SIMPLIFY
<LISPUSERS>SKIPTRAILER <LISPUSERS>SOLITAIRE <LISPUSERS>TESTPAT <LISPUSERS>TINYTIDY
<LISPUSERS>TTY <LISPUSERS>TTYIO <LISPUSERS>TUTOR <LISPUSERS>TUTORLESSON1
<LISPUSERS>TUTORLESSON2 <LISPUSERS>TWOD <LISPUSERS>TXDT <LISPUSERS>USER.SOURCE
<LISP>LIBRARY>UTILPROC <LISPUSERS>VT100KP <LISPUSERS>VTCHAT <LISPUSERS>WAM
<LISPUSERS>WINDOWACCESS <LISP>LIBRARY>WINK))
(PUTPROPS KNOWNFILES COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
(FILEMAP (NIL (1084 4773 (UPDATEKNOWNFILES 1094 . 4771)))))
STOP