(FILECREATED "11-Jul-84 13:43:58" ("compiled on " {ERIS}SOURCES>COREIO.;2) " 2-Jul-84 23:39:10" recompiled exprs: \CORE.CLOSEFILE \CORE.GENERATEFILES \CORE.NEXTFILEFN \CORE.GETFILEHANDLE \CORE.GETPAGEBASE \CORE.OPENFILE \CORE.SETFILEPTR \CORE.UPDATEOF \CORE.BACKFILEPTR \CORE.SETEOFPTR \CORE.GETNEXTBUFFER \CREATECOREDEVICE \NODIRCORE.OPENFILE in WORK dated " 3-Jul-84 00:37:27") (FILECREATED "11-Jul-84 13:43:05" {ERIS}SOURCES>COREIO.;2 35375 changes to: (FNS \CREATECOREDEVICE \CORE.GETNEXTBUFFER \CORE.TURNPAGE \CORE.GENERATEFILES \CORE.NEXTFILEFN \CORE.SETEOFPTR \CORE.BACKFILEPTR \CORE.UPDATEOF \CORE.SETFILEPTR \CORE.OPENFILE \CORE.CLOSEFILE \CORE.BOUT \CORE.BIN \CORE.BINS \CORE.BOUTS \CORE.GETPAGEBASE \CORE.PEEKBIN \CORE.GETFILEHANDLE \NODIRCORE.OPENFILE) (VARS COREIOCOMS) previous date: " 6-May-84 23:53:38" {ERIS}SOURCES>COREIO.;1) \CORE.CLOSEFILE D1 (L (0 STREAM)) C@ dgdgdg!@ @ @ @ @ @d @h@j@(65Q \CORE.RELEASEPAGES 33Q \CORE.UPDATEOF 3 \GETACCESS) (23Q APPEND 15Q BOTH 7 OUTPUT) () \CORE.DELETEFILE D1 (L (2 EVENIFOPEN 1 DEV 0 FILENAME)) @d`B@ h @ gA 1Hd hi hA([HZ h4KY hJHIddIJJddKKdHjhhH (52Q \GETSTREAM 35Q \CORE.GETINFOBLOCK 16Q \GETACCESS) (200Q COREFILEINFOBLK 31Q OLDEST 5 STREAMTYPE#) () \CORE.FINDPAGE D1 (L (1 PN 0 STREAM)) W@ !HYFAII:Idl IdAAl ZIIKLMJIAl Z&JI(114Q \ALLOCBLOCK 62Q \ALLOCBLOCK 40Q \ALLOCBLOCK) NIL () \CORE.GENERATEFILES D1 (L (3 OPTIONS 2 DESIREDPROPS 1 PATTERN 0 FDEV)) A Ag "0@(d[! O,O\ML^]NZgghJh ]L_sOId HKoO PI(OhDO _:HO_ -Oh'0 Od_O Oh_O&_O _O_W(277Q \NCONC2 217Q DIRECTORY.MATCH 200Q ASSOC 154Q DIRECTORY.MATCH 151Q CONCAT 106Q LAST 12Q FILENAMEFIELD 3 DIRECTORY.MATCH.SETUP) (73Q \CORE.FILEINFOFN 70Q \CORE.NEXTFILEFN 7 VERSION) ( 143Q ".") \CORE.NEXTFILEFN D1 (L (2 SCRATCHLIST 1 NAMEONLY 0 GENFILESTATE)) @d@d XAdi H(27Q NAMEFIELD) NIL () \CORE.FILEINFOFN D1 (L (1 ATTRIBUTE 0 GENFILESTATE)) @A (6 \CORE.GETFILEINFO.FROM.INFOBLOCK) NIL () \CORE.GETFILEHANDLE D1 (L (3 CREATEFLG 2 FD 1 RECOG 0 NAME)) @ABC AH`dBH dIH dJ H dK H dLdn0dg.dg,d`&dg"dg d`dkdjd`dhdldjRdk@dk0dhdH (6 \CORE.GETINFOBLOCK) (176Q \STREAM.DEFAULT.MAXBUFFERS 155Q FILELINELENGTH 146Q \FILEOUTCHARFN 137Q \EOSERROR 130Q \NOIMAGEOPS 121Q \STREAM.NOT.OPEN 112Q \STREAM.NOT.OPEN 23Q STREAMTYPE#) () \CORE.GETFILEINFO D1 (L (2 DEV 1 ATTRIBUTE 0 STREAM)) @gB A (13Q \CORE.GETFILEINFO.FROM.INFOBLOCK 7 \CORE.GETINFOBLOCK) (3 OLD) () \CORE.GETFILEINFO.FROM.INFOBLOCK D1 (L (1 ATTRIBUTE 0 INFOBLOCK))  @Adg@ @ g@ @ nAdglg@HH Adg@HH g@HH Adg@HHg@HHAdg@HHg@Ag$@ djgdkglg(410Q SHOULDNT 220Q GDATE 167Q GDATE 133Q GDATE) (404Q CRLF 374Q LF 364Q CR 352Q COREFILEINFOBLK 343Q EOL 334Q COREFILEINFOBLK 326Q TYPE 310Q COREFILEINFOBLK 301Q IWRITEDATE 261Q COREFILEINFOBLK 253Q IREADDATE 235Q COREFILEINFOBLK 226Q ICREATIONDATE 202Q COREFILEINFOBLK 173Q WRITEDATE 151Q COREFILEINFOBLK 141Q READDATE 115Q COREFILEINFOBLK 106Q CREATIONDATE 76Q BYTESIZE 57Q COREFILEINFOBLK 51Q COREFILEINFOBLK 42Q SIZE 33Q COREFILEINFOBLK 23Q COREFILEINFOBLK 13Q LENGTH) () \CORE.GETFILENAME D1 (L (2 FD 1 RECOG 0 NAME) P 2 VERS P 1 EXT P 0 ROOT) @@ HB(h [H XeIKh [I YTJ AgAK >hKggdgKjkذdgKgK ZB (174Q \CORE.PACKFILENAME 165Q SHOULDNT 157Q FLAST 72Q FASSOC 46Q \CORE.NAMESEGMENT 37Q \CORE.NAMESCAN 25Q \CORE.NAMESEGMENT 16Q \CORE.NAMESCAN 6 \CORE.UNPACKFILENAME) (151Q OLDEST 136Q OLD 114Q NEW 110Q NEW 104Q OLD 61Q OLD/NEW) () \CORE.GETINFOBLOCK D1 (L (3 CREATEFLG 2 FD 1 RECOG 0 NAME) P 2 VERS P 1 EXT P 0 ROOT)  @`@  @ HB(C [dIKC [dJ AgiApK \C`B dM dj jhhdN_dO K_JOOJLO|OKggdgKKjkغ`B _dO dj jhh_dO_dO KJLKdgKgK L(421Q SHOULDNT 413Q FLAST 351Q \PUTFIXP 340Q IDATE 300Q \CORE.PACKFILENAME 165Q \PUTFIXP 154Q IDATE 122Q \CORE.PACKFILENAME 75Q FASSOC 45Q \CORE.NAMESCAN 31Q \CORE.NAMESCAN 21Q \CORE.UNPACKFILENAME) (405Q OLDEST 372Q OLD 273Q COREFILEINFOBLKTYPE# 252Q NEW 246Q NEW 242Q OLD 115Q COREFILEINFOBLKTYPE# 62Q OLD/NEW 4 STREAMTYPE#) () \CORE.GETPAGEBASE D1 (L (0 STREAM)) <@dRj @d X@dd @n @@ j@HH(25Q \CORE.FINDPAGE 15Q \FILE.NOT.OPEN) NIL () \CORE.NAMESCAN D1 (L (2 CREATEFLG 1 NAMELST 0 NAME)) 6A2AAd@A@ AbB@ X AHAH(51Q \CORE.NAMESEGMENT 33Q ALPHORDER) NIL () \CORE.NAMESEGMENT D1 (L (0 NAME)) @h@hNIL NIL NIL \CORE.OPENFILE D1 (L (5 OLDSTREAM 4 FDEV 3 PARAMETERS 2 RECOG 1 ACCESS 0 NAME)) I pEA@d`Gd /@ @dDI dJI dK I dL I dMdh2dj1dj0dg.dg,dh*dh(d`&dh$dg"dg dj4dj d`dkdjd`djdjdhdldjdjdhdhdhdhdh dhdjRdk@dk0dj djdjdhdj4dj djdjdjdjdI XAi @@ BDBgBgi XAgH C1 O*O#`_IOdgdg_dg:O_rHIOdgjgkOdgl ^ NBdgO_4dgdg'IOdg d O O_K HA H(1105Q \CORE.SETACCESSTIME 1074Q \ILLEGAL.ARG 1060Q \PUTFIXP 1055Q \ILLEGAL.ARG 1033Q IDATE 745Q \ILLEGAL.ARG 553Q \CORE.GETFILEHANDLE 524Q \FILE.WONT.OPEN 515Q \IOMODEP 30Q \GETACCESS) (1024Q CREATIONDATE 1010Q ICREATIONDATE 1002Q CREATIONDATE 764Q TYPE 734Q CRLF 722Q LF 711Q CR 665Q EOL 641Q BINARY 630Q TEXT 613Q DEFAULTFILETYPE 562Q INPUT 544Q OLD/NEW 536Q NEW 262Q \STREAM.DEFAULT.MAXBUFFERS 241Q FILELINELENGTH 216Q \FILEOUTCHARFN 207Q \EOSERROR 173Q \NOIMAGEOPS 152Q \STREAM.NOT.OPEN 143Q \STREAM.NOT.OPEN 46Q STREAM 17Q STREAMTYPE#) () \CORE.PACKFILENAME D1 (L (0 DEVICE) F 0 ROOT F 1 EXT F 2 VERS) g@gPgQgR (25Q PACK*) (20Q ; 14Q %. 10Q } 2 {) () \CORE.RELEASEPAGES D1 (L (1 LP 0 STREAM)) &A@ b@ dAHHhhNIL NIL () \CORE.SETFILEPTR D1 (L (1 INDX 0 STREAM)) >@ AAnH@@dRlI@@j@h@H@Ih(3 \CORE.UPDATEOF) NIL () \CORE.UPDATEOF D1 (L (0 STREAM)) F@A@@8@nH@dH@HnX@h@d @H @HhNIL NIL () \CORE.BACKFILEPTR D1 (L (0 STREAM)) i@dRl@l @j@jG@ @ddjdj@h@dknk@dkjHHjHIIh(44Q \CORE.UPDATEOF 22Q \LISPERROR) NIL () \CORE.SETEOFPTR D1 (L (1 NBYTES 0 STREAM) P 3 \INTERRUPTABLE) _@ A@ 1HjJ@RljAAAn庹@I @J @I@J@hjjH@I Jn @I ih(131Q \CORE.RELEASEPAGES 123Q \ZEROBYTES 114Q \CORE.FINDPAGE 10Q \GETEOFPTR 3 \CORE.UPDATEOF) NIL () \CORE.SETACCESSTIME D1 (L (1 ACCESS 0 STREAM)) `Adg@ lH Bg@ lH @ lH AgAg@ lH @(134Q SHOULDNT 130Q \PUTFIXP 75Q \PUTFIXP 57Q \PUTFIXP 32Q \PUTFIXP 2 IDATE) (121Q COREFILEINFOBLK 111Q APPEND 103Q OUTPUT 66Q COREFILEINFOBLK 50Q COREFILEINFOBLK 37Q BOTH 23Q COREFILEINFOBLK 12Q INPUT) () \CORE.SETFILEINFO D1 (L (3 DEV 2 VALUE 1 ATTRIBUTE 0 STREAM)) @gC !AdgB Bl bgBdBl HYAdg HBdgdgdl YIg-HBdgjgkBdgll Z J(214Q \LISPERROR 133Q \LISPERROR 66Q \LISPERROR 37Q \LISPERROR 27Q IDATE 7 \CORE.GETINFOBLOCK) (201Q CRLF 170Q LF 157Q CR 152Q COREFILEINFOBLK 143Q EOL 122Q BINARY 114Q TEXT 107Q COREFILEINFOBLK 77Q TYPE 46Q ICREATIONDATE 17Q CREATIONDATE 3 OLD) () \CORE.GETNEXTBUFFER D1 (L (2 NOERRORFLG 1 WHATFOR 0 STREAM)) t@djAg@nZ@d@ 4AdgBh @"@kHg@dk @j @h@djj@dk@ i(160Q \CORE.GETPAGEBASE 123Q SHOULDNT) (100Q WRITE 51Q READ 13Q READ) () \CORE.UNPACKFILENAME D1 (L (0 NAME) F 6 ROOT F 7 EXT F 10Q VERS) @d @ bk gg@hddi k@ kBo@H Zo@J [JdddJhKIKI@HJk o\do iLc JKko]do iM@JkKk c@Kk ddch(247Q SUBATOM 236Q SUBATOM 215Q MKATOM 156Q MKATOM 135Q SUBATOM 100Q STRPOS 66Q STRPOS 50Q NCHARS 41Q STRPOS 20Q NTHCHAR 12Q U-CASE 4 U-CASEP) (30Q } 23Q {) (212Q "" 202Q (NIL) 153Q "" 143Q (NIL) 73Q ";" 61Q ".") COREDEVICE D1 (L (1 NODIRFLG 0 NAME)) @dA (10Q \DEFINEDEVICE 5 \CREATECOREDEVICE) NIL () \CREATECOREDEVICEA0038 D1 (L (5 OLDSTREAM 4 FDEV 3 PARAMETERS 2 RECOG 1 ACCESS 0 NAME)) ENIL NIL () \CREATECOREDEVICE D1 (L (1 NODIRFLG 0 NAME)) V`dk@dkPdk`d@dkdkdj0dk dkpdgAggHdIdg AggHdIdgdgdgdgAggHdIAggHdIAggHdI dgAhghHdI(dgdgdg$dgdg dg"dg&dg.dg0dg2dg@dg4dg6dg8dg*dg>dg:NIL (520Q \GENERIC.RENAMEFILE 511Q \CORE.GETNEXTBUFFER 502Q NILL 473Q \BUFFERED.BOUTS 464Q \BUFFERED.BINS 455Q \PAGEDEOFP 446Q \CORE.SETEOFPTR 437Q \PAGEDGETEOFPTR 430Q \PAGEDGETFILEPTR 421Q \CORE.SETFILEPTR 412Q \CORE.BACKFILEPTR 403Q \BUFFERED.PEEKBIN 374Q \BUFFERED.BOUT 365Q \BUFFERED.BIN 356Q \GENERIC.READP 347Q NILL 340Q TRUE 320Q CoreFiles 305Q NILL 267Q \CORE.GENERATEFILES 263Q \NULLFILEGENERATOR 244Q \CORE.OPENFILE 240Q \CREATECOREDEVICEA0038 221Q \CORE.GETFILENAME 215Q NILL 205Q \ILLEGAL.DEVICEOP 176Q \CORE.RELEASEPAGES 167Q \CORE.SETFILEINFO 160Q \ILLEGAL.DEVICEOP 142Q \CORE.OPENFILE 136Q \NODIRCORE.OPENFILE 126Q \CORE.GETFILEINFO 110Q \CORE.DELETEFILE 104Q NILL 74Q \CORE.CLOSEFILE 2 FDEVTYPE#) () PRINTERDEVICEA0171 D1 (L (0 STREAM) F 3 RESETSTATE) @ @ jhSg@d j_@ k kjh@@@dg.@!oH YoHIk Z HIkJk o @di (176Q \CORE.DELETEFILE 165Q SEND.FILE.TO.PRINTER 155Q SUBATOM 140Q STRPOS 122Q STRPOS 26Q GETEOFPTR 3 \CORE.CLOSEFILE) (72Q LPT 41Q COREFILEINFOBLK) ( 162Q (DELETE T HEADING T) 131Q "." 116Q "}") PRINTERDEVICE D1 (L (0 NAME)) @ Hg@H @(24Q \DEFINEDEVICE 3 \CREATECOREDEVICE) (15Q PRINTERDEVICEA0171 12Q FDEV) () \NODIRCOREFDEV D1 (L (1 READPFN 0 NAME)) @i AHA$@H H(26Q \DEFINEDEVICE 4 \CREATECOREDEVICE) (15Q FDEV) () \NODIRCORE.OPENFILE D1 (L (4 FDEV 3 PARAMETERS 2 RECOG 1 ACCESS 0 NAME)) K@`H@d @dAi *@  A@dDH dIH dJ H dK H dLdh2dj1dj0dg.dg,dh*dh(d`&dh$dg"dg dj4dj d`dkdjd`djdjdhdldjdjdhdhdhdhdh dhdjRdk@dk0dj djdjdhdj4dj djdjdjdjH BgBg`dDdn0dg.dg,d`&dg"dg djd`dkdjd`dhdldjRdk@dk0dhd`dj jhhHdIHdI  b Ag:Cg X0@d HdgjgkHdgl Y I@A @(1107Q \CORE.SETACCESSTIME 1067Q \ILLEGAL.ARG 1020Q LISTGET 767Q \PUTFIXP 756Q IDATE 41Q \FILE.WONT.OPEN 30Q \IOMODEP 16Q \GETACCESS) (1056Q CRLF 1045Q LF 1034Q CR 1015Q EOL 1006Q OUTPUT 725Q COREFILEINFOBLKTYPE# 653Q \STREAM.DEFAULT.MAXBUFFERS 632Q FILELINELENGTH 615Q \FILEOUTCHARFN 606Q \EOSERROR 577Q \NOIMAGEOPS 570Q \STREAM.NOT.OPEN 561Q \STREAM.NOT.OPEN 540Q STREAMTYPE# 530Q OLD/NEW 522Q NEW 273Q \STREAM.DEFAULT.MAXBUFFERS 252Q FILELINELENGTH 227Q \FILEOUTCHARFN 220Q \EOSERROR 204Q \NOIMAGEOPS 163Q \STREAM.NOT.OPEN 154Q \STREAM.NOT.OPEN 57Q STREAM 4 STREAMTYPE#) () (PRETTYCOMPRINT COREIOCOMS) (RPAQQ COREIOCOMS ((* Implementation of Core resident "files") (FNS \CORE.CLOSEFILE \CORE.DELETEFILE \CORE.FINDPAGE \CORE.GENERATEFILES \CORE.NEXTFILEFN \CORE.FILEINFOFN \CORE.GETFILEHANDLE \CORE.GETFILEINFO \CORE.GETFILEINFO.FROM.INFOBLOCK \CORE.GETFILENAME \CORE.GETINFOBLOCK \CORE.GETPAGEBASE \CORE.NAMESCAN \CORE.NAMESEGMENT \CORE.OPENFILE \CORE.PACKFILENAME \CORE.RELEASEPAGES \CORE.SETFILEPTR \CORE.UPDATEOF \CORE.BACKFILEPTR \CORE.SETEOFPTR \CORE.SETACCESSTIME \CORE.SETFILEINFO \CORE.GETNEXTBUFFER \CORE.UNPACKFILENAME) (FNS COREDEVICE \CREATECOREDEVICE PRINTERDEVICE) (FNS \NODIRCOREFDEV \NODIRCORE.OPENFILE) (DECLARE: DONTCOPY (RECORDS CORE.PAGEENTRY COREFILEINFOBLK CORESTREAM COREDEVICE COREGENFILESTATE)) (INITRECORDS COREFILEINFOBLK) (DECLARE: DONTEVAL@LOAD DOCOPY (P (COREDEVICE (QUOTE NODIRCORE) T) (COREDEVICE (QUOTE CORE)) ( PRINTERDEVICE (QUOTE LPT)))) (LOCALVARS . T))) (/DECLAREDATATYPE (QUOTE COREFILEINFOBLK) (QUOTE (FIXP FIXP FIXP POINTER POINTER POINTER WORD WORD FLAG (BITS 2)))) (COREDEVICE (QUOTE NODIRCORE) T) (COREDEVICE (QUOTE CORE)) (PRINTERDEVICE (QUOTE LPT)) (PUTPROPS COREIO COPYRIGHT ("Xerox Corporation" 1981 1982 1983 1984)) NIL