(FILECREATED "16-Sep-86 19:59:39" ("compiled on " {ERIS}SOURCES>FILEIO.;81) "16-Sep-86 11:57:30" recompiled changes: \PAGED.REVALIDATEFILELST \PAGED.REVALIDATEFILES \BUFFERED.REVALIDATEFILELST in "" dated "16-Sep-86 12:29:41") (FILECREATED "16-Sep-86 19:55:35" {ERIS}SOURCES>FILEIO.;81 154158 changes to: (FNS \PAGED.REVALIDATEFILELST \PAGED.REVALIDATEFILES \BUFFERED.REVALIDATEFILELST) (VARS FILEIOCOMS) previous date: "16-Sep-86 12:00:21" {ERIS}SOURCES>FILEIO.;80) (/DECLAREDATATYPE (QUOTE STREAM) (QUOTE (WORD WORD FLAG FLAG FLAG (BITS 5) POINTER FLAG FLAG FLAG FLAG FLAG (BITS 3) POINTER POINTER POINTER WORD WORD POINTER POINTER POINTER POINTER POINTER WORD WORD BYTE POINTER WORD WORD WORD WORD WORD WORD (BITS 2) FLAG (BITS 5) POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD POINTER BYTE)) (QUOTE ((STREAM 0 (BITS . 15)) (STREAM 1 ( BITS . 15)) (STREAM 2 (FLAGBITS . 0)) (STREAM 2 (FLAGBITS . 16)) (STREAM 2 (FLAGBITS . 32)) (STREAM 2 (BITS . 52)) (STREAM 2 POINTER) (STREAM 4 (FLAGBITS . 0)) (STREAM 4 (FLAGBITS . 16)) (STREAM 4 ( FLAGBITS . 32)) (STREAM 4 (FLAGBITS . 48)) (STREAM 4 (FLAGBITS . 64)) (STREAM 4 (BITS . 82)) (STREAM 4 POINTER) (STREAM 6 POINTER) (STREAM 8 POINTER) (STREAM 10 (BITS . 15)) (STREAM 11 (BITS . 15)) ( STREAM 12 POINTER) (STREAM 14 POINTER) (STREAM 16 POINTER) (STREAM 18 POINTER) (STREAM 20 POINTER) ( STREAM 22 (BITS . 15)) (STREAM 23 (BITS . 15)) (STREAM 20 (BITS . 7)) (STREAM 24 POINTER) (STREAM 26 ( BITS . 15)) (STREAM 27 (BITS . 15)) (STREAM 28 (BITS . 15)) (STREAM 29 (BITS . 15)) (STREAM 30 (BITS . 15)) (STREAM 31 (BITS . 15)) (STREAM 24 (BITS . 1)) (STREAM 24 (FLAGBITS . 32)) (STREAM 24 (BITS . 52)) (STREAM 32 POINTER) (STREAM 34 POINTER) (STREAM 36 POINTER) (STREAM 38 POINTER) (STREAM 40 POINTER) (STREAM 42 POINTER) (STREAM 44 POINTER) (STREAM 46 POINTER) (STREAM 48 (BITS . 15)) (STREAM 49 (BITS . 15)) (STREAM 50 POINTER) (STREAM 50 (BITS . 7)))) (QUOTE 52)) STREAMPROP D1 (L (0 X)) *eHdlñœ¿kalalalð´kala (47Q \ILLEGAL.ARG 43Q GETSTREAMPROP 25Q PUTSTREAMPROP) NIL () GETSTREAMPROP D1 (L (1 PROP 0 STREAM)) @dlð¥¿¿@É$A'(12Q \ILLEGAL.ARG) (17Q STREAM) () PUTSTREAMPROP D1 (L (2 VALUE 1 PROP 0 STREAM) P 1 OLDVALUE) c@dlð¤ ¿@É$!HµB´@ABh$hA'YB˜HAB¿°-I´+HdAð²¿@H$¿°Að—Jd¿†JZµîI(61Q LISTPUT 11Q \ILLEGAL.ARG) (103Q STREAM 35Q STREAM 16Q STREAM) () STREAMP D1 (L (0 X)) @lð´@NIL NIL () \STREAM.DEFPRINT D1 (L (1 OUTSTREAM 0 ITEM) F 3 *READTABLE*) w@Ò @Ó SÊ Jo@ dgð–¿o°dgð•¿ogð”oƒooHoI@É²o@Éoƒo h(162Q CONCAT 151Q CONCAT 37Q \GETACCESS 23Q CHARACTER 11Q OCTALSTRING 4 OCTALSTRING) (140Q STREAM 124Q STREAM 73Q BOTH 60Q OUTPUT 43Q INPUT 15Q READTABLEP) ( 156Q ">" 146Q ">" 134Q " on " 117Q "," 112Q "Stream " 106Q "Closed " 101Q "IO " 67Q "Output " 52Q "Input " 33Q "<") \GETACCESS D1 (L (0 STREAM)) 4@ÊRdjð‘hdkð“gdlð“gdlð“glð“g(61Q SHOULDNT) (55Q BOTH 45Q OUTPUT 34Q APPEND 23Q INPUT 3 STREAM) () \SETACCESS D1 (L (1 ACCESS 0 STREAM) P 0 \INTERRUPTABLE) Þ@@É»AµI@jÏR¿@@@jÏ ¿jdð¡k€jYÏ¿Ijð¡k€jÏ¿@@g.¿g,±Šgð²T@kÏR¿@KÊ@jð¡k€jÏ¿@KÉ,¿@g.¿@@jÏ ¿jdð¡k€jZÏ¿J±2Adgð²[¿@lÏR¿@KÊPjð¡k€jÏ¿@KÊ`jð¡k€jÏ ¿@KÉ .¿@g,¿@jÏ¿j±Ñgð²Y@lÏR¿@KÊPjð¡k€jÏ¿@KÊ`jð¡k€jÏ ¿@KÉ .¿@g,¿@jÏ¿j°sAgð²e@lÏR¿@KÊ@jð¡k€jÏ¿@KÊPjð¡k€jÏ¿@KÊ`jð¡k€jÏ ¿@KÉ,¿@KÉ .†o A(732Q RAID) (716Q FDEV 712Q STREAM 701Q FDEV 675Q STREAM 654Q FDEV 650Q STREAM 627Q FDEV 623Q STREAM 602Q FDEV 576Q STREAM 564Q STREAM 555Q BOTH 541Q STREAM 532Q \STREAM.NOT.OPEN 527Q STREAM 516Q FDEV 512Q STREAM 471Q FDEV 465Q STREAM 444Q FDEV 440Q STREAM 426Q STREAM 417Q OUTPUT 403Q STREAM 374Q \STREAM.NOT.OPEN 371Q STREAM 360Q FDEV 354Q STREAM 333Q FDEV 327Q STREAM 306Q FDEV 302Q STREAM 270Q STREAM 260Q APPEND 226Q STREAM 222Q STREAM 213Q \STREAM.NOT.OPEN 210Q STREAM 177Q FDEV 173Q STREAM 152Q FDEV 146Q STREAM 135Q STREAM 126Q INPUT 116Q \STREAM.NOT.OPEN 110Q \STREAM.NOT.OPEN 105Q STREAM 101Q STREAM 41Q STREAM 35Q STREAM 31Q STREAM 20Q STREAM 6 STREAM) ( 727Q "Illegal stream access mode") \DEFINEDEVICE D1 (L (1 DEV 0 NAME) P 1 \INTERRUPTABLE) «@ b¿Aµ%@`X²BH` ¿@` °'`ð²R@`¸A`«HµA`¿@µ@d`ž°` ¿°ß`¿Hµ @h`A¿°ÐAlðšA `µoA b±ÿib±ÿd(237Q ERROR 220Q U-CASE 145Q DREMOVE 51Q DREMOVE 36Q DREMOVE 6 U-CASE) (223Q \DEVICENAMETODEVICE 200Q \DEVICENAMETODEVICE 174Q \DEVICENAMETODEVICE 162Q \FILEDEVICENAMES 156Q \FILEDEVICENAMES 150Q \FILEDEVICES 142Q \FILEDEVICES 132Q \FILEDEVICENAMES 120Q \FILEDEVICES 114Q \FILEDEVICES 103Q \FILEDEVICES 72Q \DEVICENAMETODEVICE 63Q FDEVTYPE# 54Q \FILEDEVICENAMES 46Q \FILEDEVICENAMES 41Q \DEVICENAMETODEVICE 33Q \DEVICENAMETODEVICE 20Q \DEVICENAMETODEVICE) ( 233Q "INVALID FILE DEVICE") \GETDEVICEFROMNAME D1 (L (2 DONTCREATE 1 NOERROR 0 NAME)) '@dlð£Ÿ@g µ@B µ Ahð´@l (44Q \LISPERROR 27Q \GETDEVICEFROMHOSTNAME 20Q FILENAMEFIELD) (15Q HOST) () \GETDEVICEFROMHOSTNAME D1 (L (1 DONTCREATE 0 HOSTN)) L@`µD@ b`µ7Ahð´2`1HµhYÉ»@IlKZµHX°ç`ð‘J¹@I I(110Q \DEFINEDEVICE 13Q U-CASE) (77Q FDEVTYPE# 52Q FDEV 34Q \FILEDEVICES 20Q \DEVICENAMETODEVICE 3 \DEVICENAMETODEVICE) () \REMOVEDEVICE D1 (L (0 DEV) P 3 \INTERRUPTABLE) E0`YµhXµ@` @Z@ð•Jµêi°çI°Þ` ¿H` °Ç(76Q DREMOVE 63Q DREMOVE 27Q DREMOVE) (101Q \DEVICENAMETODEVICE 73Q \DEVICENAMETODEVICE 66Q \FILEDEVICENAMES 60Q \FILEDEVICENAMES 32Q \FILEDEVICES 24Q \FILEDEVICES 10Q \DEVICENAMETODEVICE) () \REMOVEDEVICE.NAMES D1 (L (1 NAMES 0 DEV)) J`1HYµJ´ h` h@ð²'AŸI[Að¨A²KA²I` ¿Ih¿iºI°À(72Q DREMOVE 24Q DREMOVE) (75Q \FILEDEVICENAMES 67Q \FILEDEVICENAMES 27Q \DEVICENAMETODEVICE 21Q \DEVICENAMETODEVICE 2 \DEVICENAMETODEVICE) () \CLOSEFILE D1 (L (0 STREAM)) :@dÊRkð³¿@É&É@kH@ÉÉ@kH@ @(66Q \SETACCESS) (50Q FDEV 43Q STREAM 25Q IMAGEOPS 20Q STREAM 4 STREAM) () \DELETEFILE D1 (L (1 DEV 0 FILENAME)) ,@d`ð’ bAµdi bdÉ@AlH(27Q \GETDEVICEFROMNAME 15Q \ADD.CONNECTED.DIR 12Q INTERLISP-NAMESTRING) (36Q FDEV 5 PATHNAMETYPE#) () \DEVICEEVENTA0001 D1 (L (0 STREAM)) +@ÊRlåjð³@Êjð´@kÏ¿kjðhðhNIL (34Q STREAM 21Q STREAM 3 STREAM) () \DEVICEEVENT D1 (L (0 EVENT)) J@gð³@gð«@gð¥@gðžg` ¿`°` °dHÉ¹H@lIµëh(55Q REVERSE 41Q \MAP-OPEN-STREAMS) (70Q FDEV 52Q \FILEDEVICES 45Q \FILEDEVICES 36Q \FILEDEVICES 33Q \DEVICEEVENTA0001 26Q BEFORESAVEVM 20Q BEFORESYSOUT 12Q BEFOREMAKESYS 3 BEFORELOGOUT) () \GENERATEFILES D1 (L (2 OPTIONS 1 DESIREDPROPS 0 PATTERN)) @ bd HÉ ¹H@ABlI(11Q \GETDEVICEFROMNAME 3 \ADD.CONNECTED.DIR) (20Q FDEV) () \GENERATENEXTFILE D1 (L (1 NAMEONLY 0 GENOBJ)) @@AlHNIL NIL () \GENERATEFILEINFO D1 (L (1 ATTRIBUTE 0 GENOBJ)) @@AlHNIL NIL () \GETFILENAME D1 (L (2 FDEV 1 RECOG 0 NAME)) -@d`ð’ bBµdi bdžÉ@ABlH(27Q \GETDEVICEFROMNAME 15Q \ADD.CONNECTED.DIR 12Q INTERLISP-NAMESTRING) (36Q FDEV 5 PATHNAMETYPE#) () \GETFILENAME.OR.STREAM D1 (L (2 FDEV 1 RECOG 0 NAME)) F@d`ð’ bddlðŸ¿dÊRjðhð´$@ bBµdi bdžÉ@ABlH(60Q \GETDEVICEFROMNAME 46Q \ADD.CONNECTED.DIR 12Q INTERLISP-NAMESTRING) (67Q FDEV 30Q STREAM 5 PATHNAMETYPE#) () \GENERIC.OUTFILEP D1 (L (1 DEV 0 NAME)) =AÉ@gAlHH²gHg µkkØgHgkg@(72Q PACKFILENAME 56Q PACKFILENAME 42Q FILENAMEFIELD) (66Q BODY 62Q VERSION 52Q BODY 37Q VERSION 33Q VERSION 14Q OLD 3 FDEV) () \OPENFILE D1 (L (3 PARAMETERS 2 RECOG 1 ACCESS 0 NAME)) ŽP@dlð²¿@dAi˜¿@AC@YÉ† Y XÉ»IABCHlKZµ@l b°¾A ¿JAgð–JÈ €jÍ¿JAgð–JÈ€jÍ¿JAC¿HÉR¼HJlLJ(174Q \DO.PARAMS.AT.OPEN 113Q \SETACCESS 103Q \LISPERROR 52Q \GETDEVICEFROMNAME 46Q \ADD.CONNECTED.DIR 32Q \DO.PARAMS.AT.OPEN 22Q \IOMODEP) (201Q FDEV 157Q STREAM 151Q APPEND 145Q STREAM 132Q STREAM 124Q APPEND 120Q STREAM 56Q FDEV 40Q STREAM) () \DO.PARAMS.AT.OPEN D1 (L (2 PARAMETERS 1 ACCESS 0 STREAM)) KB1HµhYd–ºIºi»Jdgðš¿@gK°gð˜@gKŠJgð•@K ¿HX°½(103Q CHARSET 67Q SETFILEINFO 50Q SETFILEINFO) (74Q CHARSET 63Q ENDOFSTREAMOP 55Q ENDOFSTREAMOP 44Q BUFFERS 35Q BUFFERS) () \RENAMEFILE D1 (L (1 NEWFILE 0 OLDFILE)) ,@ bA b@i Ai HdÉ:ºH@IAlJ(25Q \GETDEVICEFROMNAME 20Q \GETDEVICEFROMNAME 11Q \ADD.CONNECTED.DIR 3 \ADD.CONNECTED.DIR) (36Q FDEV) () \REVALIDATEFILE D1 (L (0 STREAM)) Ã@ÉÉ@É@ gh@É@lHHµg@ð‘h@HÉ@HÉ@HÉ@HÉ@HÉ@HÈÍ@HÈÍHÉ@Éô³@HÉ@HÈ Í @HÈÍg(27Q \GETACCESS) (300Q CHANGED 271Q STREAM 265Q STREAM 255Q STREAM 251Q STREAM 241Q STREAM 235Q STREAM 224Q STREAM 216Q STREAM 206Q STREAM 202Q STREAM 172Q STREAM 166Q STREAM 156Q STREAM 152Q STREAM 142Q STREAM 136Q STREAM 126Q STREAM 122Q STREAM 112Q STREAM 106Q STREAM 76Q STREAM 72Q STREAM 60Q DELETED 37Q STREAM 32Q OLD 21Q STREAM 10Q FDEV 3 STREAM) () \PAGED.REVALIDATEFILELST D1 (L (0 DEVICE)) |@ÉNhd@lH1Hµ@ÉNhd@lHY ZµHX°àdgð–¿I °0gð²'I ¿Ig ‰d»IkK¿µõI ¿I@ ‚¿JI ¿°¹(167Q \PRINT-REVALIDATION-RESULT 161Q SHOULDNT 155Q \DELETE-OPEN-STREAM 147Q \SETACCESS 125Q STREAMPROP 115Q FORGETPAGES 101Q RESTOREMAP 56Q \PAGED.REVALIDATEFILE) (122Q AFTERCLOSE 106Q DELETED 72Q CHANGED 34Q FDEV 3 FDEV) () \PAGED.REVALIDATEFILES D1 (L (0 LIST)) o@ @!JµH[ \µJZ°ðdgð–¿K °±IO!¿k±ÿkð²)LJÙdjñ²zH _l ðžIl !¿Olð˜Il ‚IO!¿k°ÝNlð²RkLJÙ_,¿_*¿O*O,ó³DIH _dl ð²*¿O,dkð³mÿÔ_,¿H _l ðšOjð’l ‰l †Il !¿O!¿O,mÿÔ_,¿°¼i(1166Q SHOULDNT 624Q \PEEKBIN 504Q \NSIN.24BITENCODING.ERROR 361Q ERROR 226Q \ILLEGAL.ARG 167Q \SETFILEPTR 161Q \LISPERROR 124Q ERROR 101Q \GETEOFPTR 50Q COPYBYTES 7 \GETSTREAM 3 \GETSTREAM) (730Q FDEV 723Q STREAM 700Q STREAM 325Q FDEV 320Q STREAM 247Q FDEV 242Q STREAM 117Q STREAM 64Q FDEV 57Q STREAM 32Q STREAM 22Q STREAM) ( 353Q "Negative number of bytes to copy" 216Q 77777777Q 151Q 77777777Q 113Q "COPYCHARS: Source file is not random access") COPYFILEA0001 D1 (NAME ERRORSET F 0 FROMFILE F 1 RESETVARSLST F 2 RESETY F 3 TOFILE F 4 DESTPARAMETERS) 'oPggochQc¿PSTci(41Q \COPYOPENFILE 21Q OPENSTREAM) (12Q OLD 7 INPUT) ( 16Q ((SEQUENTIAL T) (DON'TCACHE T)) 3 (PROGN (CLOSEF OLDVALUE))) COPYFILE D1 (P 1 RESETY P 0 LISPXHIST I 2 DESTPARAMETERS I 1 TOFILE I 0 FROMFILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q COPYFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (COPYFILEA0001)) \COPYOPENFILE D1 (L (2 DESTPARAMETERS 1 NEWNAME 0 INSTREAM) F 12Q RESETVARSLST) D B‘ gB³@g Z™gJhH¸@g Z™gJhH¸gBYµ#@g Y•Igð–@ Y´ gIhH¸Igð²@g ZŸgB©gJhH¸oAggooH[hWc@ÉÉ0¼@kLjð¥@j ¿Igð²}Kg Jð³r@g"¿@Ê_¿@ _²^KOdl ð²+¿Odjð”¿l °0lð²@i l ð–@ ¿l °l °l °l ðšOkð’l „l O_¿^É ½NOlM°¥@K ¿K (501Q CLOSEF 474Q COPYBYTES 400Q \PEEKBIN 303Q GETFILEINFO 264Q SETFILEPTR 223Q OPENSTREAM 150Q GETFILEINFO 115Q \INFER.FILE.TYPE 101Q GETFILEINFO 44Q GETFILEINFO 21Q GETFILEINFO) (453Q STREAM 325Q STREAM 316Q NILL 313Q STREAM 300Q EOL 271Q TEXT 245Q FDEV 240Q STREAM 205Q NEW 202Q OUTPUT 163Q EOL 155Q EOL 145Q EOL 136Q TEXT 123Q TYPE 107Q ? 76Q TYPE 63Q TYPE 51Q LENGTH 41Q LENGTH 26Q CREATIONDATE 16Q CREATIONDATE 6 CREATIONDATE) ( 215Q (DON'TCACHE T) 211Q (SEQUENTIAL T) 176Q (AND RESETSTATE (SETQ OLDVALUE (CLOSEF OLDVALUE)) (DELFILE OLDVALUE))) \INFER.FILE.TYPE D1 (L (0 STREAM)) =@ ´7@j @É"@g"@ µg‡lñ²õgY@H"@j I(71Q SETFILEPTR 12Q SETFILEPTR 3 RANDACCESSP) (61Q STREAM 54Q BINARY 43Q TEXT 32Q NILL 27Q STREAM 16Q STREAM) () EOFP D1 (L (0 FILE)) #@giµ@ HÉÉ4¹HkI(15Q \GETSTREAM 7 \GETSTREAM) (31Q FDEV 24Q STREAM 3 INPUT) () FORCEOUTPUT D1 (L (1 WAITFORFINISH 0 STREAM)) @g bdÉÉ*@AlH(6 \GETSTREAM) (21Q FDEV 14Q STREAM 3 OUTPUT) () \FLUSH.OPEN.STREAMS D1 (L (0 FDEV)) ?@ÉNhd@lH!HµhYdÊRlåjð®ÉÉ*ºIkJ¿HX°ÙNIL (60Q FDEV 53Q STREAM 37Q STREAM 3 FDEV) () CHARSET D1 (L (1 CHARACTERSET 0 STREAM)) ‰@ bA²Aið³jAñ©Adlÿñ¤lÿð”A ¿@Ê2lÿð¤@Ê2€iA²TAdið²,¿@Ê2lÿð³A@É&ÉH@AlH@lÿÏ2¿@Ê2ð³@É&ÉH@AlH@AÏ2¿(37Q \ILLEGAL.ARG 3 \GETSTREAM) (164Q IMAGEOPS 157Q STREAM 120Q IMAGEOPS 113Q STREAM 77Q STREAM 44Q STREAM) () GETEOFPTR D1 (L (0 FILE)) @ HÉÉ2¹HkI(3 \GETSTREAM) (17Q FDEV 12Q STREAM) () GETFILEINFO D1 (L (1 ATTRIB 0 FILE)) [@g aHdlð¢±þ¿Agð”H HÉYÉºHAIlJµ‚±HÊRjð’±ªAgð§Adgð˜¿HÊgð²%HÊdjð“gdkð“glð“gAdgð—¿HÈgð”H Adgð—¿HÉ"gðžH ´‚±˜H Agð´&IÉ»HgIlKµH ´H d•nÿØãâAgð´_IÉ¼HgIlLd²LnÿØãâ²DAgð¥Agð‘hH YÉ½HAIlMµ!Agð´IÉ¾HgIlNd•nÿØãâ@l (530Q \LISPERROR 442Q \GETDEVICEFROMNAME 344Q \GETEOFPTR 336Q RANDACCESSP 300Q \GETEOFPTR 266Q RANDACCESSP 235Q CHARSET 204Q SHOULDNT 36Q \GETACCESS 6 \GETFILENAME.OR.STREAM) (504Q LENGTH 475Q FDEV 466Q SIZE 446Q FDEV 432Q OPENBYTESIZE 424Q ACCESS 377Q LENGTH 370Q FDEV 361Q SIZE 323Q LENGTH 314Q FDEV 305Q SIZE 260Q LENGTH 252Q STREAM 243Q ENDOFSTREAMOP 227Q CHARSET 221Q STREAM 212Q BUFFERS 200Q CRLF 170Q LF 160Q CR 146Q STREAM 137Q EOL 130Q STREAM 121Q OPENBYTESIZE 112Q BYTESIZE 75Q STREAM 51Q FDEV 43Q STREAM 30Q ACCESS 3 OLD) () \TYPE.FROM.FILETYPE D1 (L (0 FILETYPE)) '@´`Hµ hµ@Y@ð•Iµòi°ïHX°æNIL (5 FILING.TYPES) () \FILETYPE.FROM.TYPE D1 (L (0 TYPE)) @`µ@3 NIL (3 FILING.TYPES) () GETFILEPTR D1 (L (0 FILE)) @ HÉÉ0¹HkI(3 \GETSTREAM) (17Q FDEV 12Q STREAM) () SETFILEINFO D1 (L (2 VALUE 1 ATTRIB 0 FILE)) 7@g QHdlð¢±É¿Agð¬Agð¦Adgð‘hgð²+HBdgð“¿j°gð’lŒBdgð’¿k‚ ÏBAdgð™¿HB"Bgð²HBjØºkJñ¡J€k[ÍKAgð•HB HÉYÉ¼HABIlLµ4Adgð²¿HBd3 ž¿jBñ¨Bdoñ¡ƒB gð´ HBáà ²UAgð’±ÿFAgð’±ÿ=Agð’±ÿ4H YÉ½HABIlMµÏAgð´ÈHBd3 ž¿jBñ¨Bdoñ¡ƒB @l (464Q \LISPERROR 455Q \SETCLOSEDFILELENGTH 452Q \ILLEGAL.ARG 372Q \GETDEVICEFROMNAME 330Q \SETEOFPTR 312Q \SETEOFPTR 307Q \ILLEGAL.ARG 216Q CHARSET 123Q \ILLEGAL.ARG 6 \GETFILENAME.OR.STREAM) (417Q LENGTH 376Q FDEV 361Q EOLCONVENTION 350Q OPENBYTESIZE 337Q ACCESS 316Q SIZE 253Q LENGTH 231Q FDEV 223Q STREAM 207Q CHARSET 163Q STREAM 154Q BUFFERS 144Q STREAM 135Q ENDOFSTREAMOP 113Q LF 101Q CRLF 70Q CR 63Q STREAM 54Q EOL 45Q OPENBYTESIZE 36Q BYTESIZE 30Q ACCESS 3 OLD) ( 443Q 77777777Q 300Q 77777777Q) SETFILEPTR D1 (L (1 ADR 0 FILE)) S@ HÉÉ.¹HAdmÿð–¿d °3 œjAñ¨Adoñ¡…Al lI¿HdÊ2lÿð§¿Hj ¿HjÍA(112Q CHARSET 63Q \LISPERROR 33Q \GETEOFPTR 3 \GETSTREAM) (75Q STREAM 14Q FDEV) ( 52Q 77777777Q) BOUT16 D1 (L (1 N 0 STREAM)) @Aã!@Alÿå!ANIL NIL () BIN16 D1 (L (0 STREAM)) @ á@ äNIL NIL () \GENERIC.BINS D1 (L (3 NBYTES 2 OFF 1 BASE 0 STREAM)) CHjñ²AB@ Ç¿BkÔb¹HkÙX°ìINIL NIL () \GENERIC.BOUTS D1 (L (3 NBYTES 2 OFF 1 BASE 0 STREAM)) CHjñ²@ABÂ!¿BkÔb¹HkÙX°ìINIL NIL () \GENERIC.RENAMEFILEA0002 D1 (NAME ERRORSET F 0 OLDFILE F 1 NEWFILE F 2 RESETVARSLST F 3 RESETY) 3oPggochRc¿PQ c´P ¿Qci(53Q \DELETEFILE 50Q CLOSEF 40Q \COPYOPENFILE 21Q OPENSTREAM) (12Q OLD 7 INPUT) ( 16Q ((SEQUENTIAL T) DON'TCACHE) 3 (AND RESETSTATE (CLOSEF? OLDVALUE))) \GENERIC.RENAMEFILE D1 (L (2 NEWDEVICE 0 OLDDEVICE) P 2 RESETY P 1 LISPXHIST I 3 NEWFILE I 1 OLDFILE F 4 LISPXHIST F 5 RESETVARSLST) 9@ÉNAg@lH³#T!Uog ‘h‚g[ K“Jh(62Q ERROR! 55Q RESETRESTORE 43Q \GENERIC.RENAMEFILEA0002) (51Q ERROR 40Q INTERNAL 14Q OLD 3 FDEV) ( 35Q (\GENERIC.RENAMEFILEA0002)) \GENERIC.OPENP D1 (L (2 DEVICE 1 ACCESS 0 FILENAME)) @²EBÉPd²JAHµI¼@LÉµL ²A˜LdAi¡‰L»Jµ KhZY¿HX°ÑK&Z°÷BÉPAHµI¼A—LAi²LdÊ@jð¨»Jµ KhZY¿HX°×K&Z°÷(136Q \IOMODEP 56Q \IOMODEP 43Q STRING-EQUAL) (145Q STREAM 111Q FDEV 33Q STREAM 6 FDEV) () \GENERIC.READP D1 (L (1 FLG 0 STREAM) P 11Q \INTERRUPTABLE F 12Q \PRIMTERMSA) @Ê2á@ÉÉ4¹@kIhð´‚±ûAhðhðµ‚±ðW@i h»Zd²Qlÿð²/@ ¿@d Zlÿð¡JŒ@d jð“¿lÿ‚ [Ï2¿KáX»@i Z¤h°H»Knÿð²@ ¿Já@i ä@ ¿‚HJäd¢±½¼Mlÿñ²LÉ€›MLÉ€ µj‚LMÂkðhðµh @ h_¿lÿð²'@d ^lÿð¡NŒ@d jð“¿lÿ‚ _Ï2¿@ ¿OáX€Hnÿð’@ ¿@ÉÉ4_¿@kOhð@ ŸHµ@Ê2lÿð”@ ¿nÿ°õ(426Q \BACKFILEPTR 406Q \BACKFILEPTR 326Q \NSIN.24BITENCODING.ERROR 244Q GETHASH 201Q \BACKFILEPTR 174Q \PEEKBIN 144Q \PEEKBIN 126Q \NSIN.24BITENCODING.ERROR 61Q \PEEKBIN) (366Q FDEV 361Q STREAM 237Q CHARTABLE 227Q CHARTABLE 20Q FDEV 13Q STREAM) () \MAP-OPEN-STREAMS D1 (L (2 ACCESS 1 DEVICES 0 FN)) IA1HµIZÉN²2I0JÉN»hBJlK°dk@¼MµLh^L&½µìN ¹HX°¿(101Q \NCONC2) (32Q FDEV 16Q FDEV) () \EOF.ACTION D1 (L (0 STREAM)) @É"@kHNIL (3 STREAM) () \EOSERROR D1 (L (0 STREAM)) @Éµ@li(16Q \LISPERROR) (3 STREAM) () \GETEOFPTR D1 (L (0 STREAM)) @ÉÉ2@kHNIL (10Q FDEV 3 STREAM) () \INCFILEPTR D1 (L (1 AMOUNT 0 STREAM)) 2@dÉÊ0jð²¿@dÉÉ0@kHAØ A (57Q \PAGED.INCFILEPTR 52Q \SETFILEPTR) (33Q FDEV 26Q STREAM 11Q FDEV 4 STREAM) () \PEEKBIN D1 (L (1 NOERRORFLG 0 STREAM)) @ÉÉ"@AlHNIL (10Q FDEV 3 STREAM) () \SETCLOSEDFILELENGTH D1 (L (1 NBYTES 0 FILENAME)) @ggHA H i(25Q \CLOSEFILE 21Q \SETEOFPTR 11Q \OPENFILE) (6 OLD 3 BOTH) () \SETEOFPTR D1 (L (1 LEN 0 STREAM)) @ÉÉ@@AlHNIL (10Q FDEV 3 STREAM) () \SETFILEPTR D1 (L (1 INDX 0 STREAM)) @ÉÉ.@AlHNIL (10Q FDEV 3 STREAM) () \FIXPOUT D1 (L (1 N 0 STRM)) )@Al lÿå!@Al lÿå!@Al lÿå!@Alÿå!(34Q RSH 21Q RSH 6 RSH) NIL () \FIXPIN D1 (L (0 STRM)) @ á@ Øáá@ á@ ØäNIL NIL () \BUFFERED.BIN D1 (L (0 STREAM)) I @Éµ°@ÈXd@Èýñ³¿¿@ÉÉ>¹@glIdið¿°É@HkØÍ¿ÂNIL (77Q STREAM 60Q READ 51Q FDEV 44Q STREAM 30Q STREAM 20Q STREAM 6 STREAM) () \BUFFERED.PEEKBIN D1 (L (1 NOERRORFLG 0 STREAM)) ?@Éµ°@Èd@Èýñ³#¿¿@ÉÉ>@gAlHdið“¿°ÆÂNIL (56Q READ 45Q FDEV 40Q STREAM 24Q STREAM 15Q STREAM 3 STREAM) () \BUFFERED.BOUT D1 (L (1 BYTE 0 STREAM)) P @Éµ°-@ÈXd@È0ýñ²@HkØÍ¿AÇ¿@kÏ k¿¿@ÉÉ>¹@glI¿°¶NIL (107Q WRITE 100Q FDEV 73Q STREAM 57Q STREAM 42Q STREAM 30Q STREAM 20Q STREAM 6 STREAM) () \BUFFERED.BINS D1 (L (4 NOERRORFLG 3 NBYTES 2 OFFSET 1 DBASE 0 STREAM)) ‚Ca@É[²=@È¼@ÈZLÙYHñ”LHYØºKLABI ¿@JÍ¿IHð‘CBIÔb¿HIÙ¸@ÉÉ>¾@gDlN]µCHÙið³žABMÇ¿BkÔb¿HmÿÔXjð³Â@ ½°é(56Q \MOVEBYTES) (127Q READ 120Q FDEV 113Q STREAM 63Q STREAM 27Q STREAM 20Q STREAM 7 STREAM) () \BUFFERED.BOUTS D1 (L (3 NBYTES 2 OFFSET 1 SBASE 0 STREAM)) i@ÉQ@É[²F@È¼@È0ZLÙYCñ”LCYØºABKLI ¿@JÍ¿@kÏ ¿CIÙbjñ¡hBIÔb¿HÉ>½@glM¿°£(63Q \MOVEBYTES) (140Q WRITE 131Q FDEV 100Q STREAM 70Q STREAM 34Q STREAM 25Q STREAM 14Q STREAM 3 STREAM) () \BUFFERED.COPYBYTES D1 (L (2 NBYTES 1 DST 0 SRC)) sBhð@Éb@ÉZ²G@È]@È\Ù»B˜KBñ”LB[Ø½AÉÉ8¾AJLKlN¿@MÍ¿BšKBð³BKÙb¿IÉ>_¿@dgHlO³ŸhNIL (147Q READ 135Q FDEV 110Q STREAM 70Q FDEV 63Q STREAM 37Q STREAM 30Q STREAM 17Q STREAM 6 STREAM) () \NULLDEVICEA0014 D1 (L (1 NOERRORFLG 0 STREAM)) Ahð´@ NIL NIL () \NULLDEVICE D1 NIL Üg`dg¿dkÏ¿dkÏ ¿dg¿dg¿dg¿dg¿dg¿dg ¿dg"¿dg$¿dg&¿dg4¿dg:¿dg¿dg¿dg6¿dg8¿dg ¿dg0¿dg2¿dg.¿dg¿dg¿dg@¿dgR¿dgN¿dg*¿dg¿dg¿ (331Q \DEFINEDEVICE) (323Q NILL 314Q NILL 305Q NILL 276Q NILL 267Q NILL 260Q NILL 251Q NILL 242Q NILL 233Q NILL 224Q ZERO 215Q ZERO 206Q \NULLFILEGENERATOR 177Q NILL 170Q \EOF.ACTION 161Q NILL 152Q NILL 143Q NILL 134Q TRUE 125Q NILL 116Q NILL 107Q \NULLDEVICEA0014 100Q NILL 71Q \EOF.ACTION 62Q \NULL.OPENFILE 53Q \NULL.OPENFILE 44Q NILL 35Q NILL 12Q NULL 5 FDEVTYPE# 2 NULL) () \NULL.OPENFILE D1 (L (5 OLDSTREAM 4 DEVICE 3 PARAMETERS 2 RECOG 1 ACCESS 0 NAME)) wEµtldkÏ0¿dh¿dD¿dg.¿dg,¿d`&¿dg"¿dg ¿djÏ¿d`Í¿djÍ¿d`Í¿dh¿dlÏ¿djÏR¿dkÏ@¿dh¿dA ¿(163Q \SETACCESS) (116Q \STREAM.DEFAULT.MAXBUFFERS 102Q FILELINELENGTH 65Q \FILEOUTCHARFN 56Q \EOSERROR 47Q \NOIMAGEOPS 40Q \STREAM.NOT.OPEN 31Q \STREAM.NOT.OPEN) () (PRETTYCOMPRINT FILEIOCOMS) (RPAQQ FILEIOCOMS ((* Device independent IO. This file is used by VAX) (COMS (* STREAM, FDEV declarations) (DECLARE: FIRST DOCOPY (* The microcode relies on STREAM being of a particular type, viz. the first type declared in the initial loadup (after VMEMPAGEP)) (INITRECORDS STREAM)) ( SYSRECORDS STREAM) (DECLARE: DONTCOPY (EXPORT (RECORDS STREAM) (MACROS STREAMOP) (CONSTANTS AppendBit NoBits ReadBit WriteBit (OutputBits (LOGOR AppendBit WriteBit)) (BothBits (LOGOR ReadBit OutputBits)) \NORUNCODE) (MACROS APPENDABLE APPENDONLY DIRTYABLE OPENED OVERWRITEABLE READABLE READONLY WRITEABLE) (MACROS TestMasked) (MACROS \RUNCODED) (CONSTANTS * EOLCONVENTIONS))) (FNS STREAMPROP GETSTREAMPROP PUTSTREAMPROP STREAMP) (COMS (* "make streams print pretty") (FNS \STREAM.DEFPRINT) (DECLARE: DONTEVAL@LOAD DOCOPY (P (DEFPRINT (QUOTE STREAM) (FUNCTION \STREAM.DEFPRINT))))) (COMS (* "Needed because of STREAM initialization") (INITVARS (FILELINELENGTH 102) (\STREAM.DEFAULT.MAXBUFFERS 3))) (FNS \GETACCESS \SETACCESS) (DECLARE: DONTCOPY (EXPORT (MACROS FDEVOP \RECOGNIZE-HACK) (RECORDS FDEV FILEGENOBJ))) (INITRECORDS FDEV) (SYSRECORDS FDEV)) (COMS (* Device operations) (FNS \DEFINEDEVICE \GETDEVICEFROMNAME \GETDEVICEFROMHOSTNAME \REMOVEDEVICE \REMOVEDEVICE.NAMES) (FNS \CLOSEFILE \DELETEFILE \DEVICEEVENT \GENERATEFILES \GENERATENEXTFILE \GENERATEFILEINFO \GETFILENAME \GETFILENAME.OR.STREAM \GENERIC.OUTFILEP \OPENFILE \DO.PARAMS.AT.OPEN \RENAMEFILE \REVALIDATEFILE \PAGED.REVALIDATEFILELST \PAGED.REVALIDATEFILES \PAGED.REVALIDATEFILE \BUFFERED.REVALIDATEFILE \BUFFERED.REVALIDATEFILELST \PRINT-REVALIDATION-RESULT \TRUNCATEFILE \FILE-CONFLICT) (COMS (* Generic enumerator) (FNS \GENERATENOFILES \NULLFILEGENERATOR \NOFILESNEXTFILEFN \NOFILESINFOFN) (DECLARE: DONTCOPY (RECORDS NOFILEGENSTATE))) (FNS \FILE.NOT.OPEN \FILE.WONT.OPEN \ILLEGAL.DEVICEOP \IS.NOT.RANDACCESSP \STREAM.NOT.OPEN) (ADDVARS (\FILEDEVICES) (\FILEDEVICENAMES) (\DEVICENAMETODEVICE) ) (COMS (* Device instances) (FNS \FDEVINSTANCE) (MACROS \INHERITFDEVOP.D \INHERITFDEVOP.S)) (INITVARS (LOGINHOST/DIR (QUOTE {DSK})) (\CONNECTED.DIRECTORY (QUOTE {DSK}))) (GLOBALVARS LOGINHOST/DIR \CONNECTED.DIRECTORY \FILEDEVICES \FILEDEVICENAMES \DEVICENAMETODEVICE)) (COMS (* Directory defaulting ) (FNS CNDIR DIRECTORYNAME DIRECTORYNAMEP HOSTNAMEP \ADD.CONNECTED.DIR)) (COMS (* Binary I/O - Public functions) (FNS \BACKFILEPTR \BACKPEEKBIN \BACKBIN BIN \BIN \BINS BOUT \BOUT \BOUTS COPYBYTES COPYCHARS COPYFILE \COPYOPENFILE \INFER.FILE.TYPE EOFP FORCEOUTPUT \FLUSH.OPEN.STREAMS CHARSET GETEOFPTR GETFILEINFO \TYPE.FROM.FILETYPE \FILETYPE.FROM.TYPE GETFILEPTR SETFILEINFO SETFILEPTR BOUT16 BIN16) (* Generic functions) (FNS \GENERIC.BINS \GENERIC.BOUTS \GENERIC.RENAMEFILE \GENERIC.OPENP \GENERIC.READP) (FNS \MAP-OPEN-STREAMS) (VARS FILING.TYPES) (GLOBALVARS FILING.TYPES) (DECLARE: DONTCOPY (EXPORT (MACROS \OUTCHAR \DEVICE-OPEN-STREAMS \CONVERT-PATHNAME))) (DECLARE: DONTEVAL@LOAD DOCOPY (P (MAPC (QUOTE ((FORCEOUTPUT FLUSHOUTPUT) (FORCEOUTPUT FLUSHMAP) (\GENERIC.BINS \NONPAGEDBINS) (\GENERIC.BOUTS \NONPAGEDBOUTS))) (FUNCTION (LAMBDA (PAIR) (PUTD (CADR PAIR) (GETD (CAR PAIR)) T))))) )) (COMS (* Internal functions) (FNS \EOF.ACTION \EOSERROR \GETEOFPTR \INCFILEPTR \PEEKBIN \SETCLOSEDFILELENGTH \SETEOFPTR \SETFILEPTR) (FNS \FIXPOUT \FIXPIN) (DECLARE: DONTCOPY (EXPORT (MACROS \DECFILEPTR \GETFILEPTR \SIGNEDWIN \SIGNEDWOUT \WIN \WOUT \BINS \BOUTS \EOFP) (CONSTANTS BitsPerByte (ByteOffsetSize (SELECTQ (SYSTEMTYPE) (VAX 10) 9)) WordsPerPage) (CONSTANTS (\MAXFILEPTR (SUB1 (LLSH 1 24)))) (RECORDS BYTEPTR)) (CONSTANTS MaxChar))) (COMS (* Buffered IO) (FNS \BUFFERED.BIN \BUFFERED.PEEKBIN \BUFFERED.BOUT \BUFFERED.BINS \BUFFERED.BOUTS \BUFFERED.COPYBYTES)) (COMS (* NULL device) (FNS \NULLDEVICE \NULL.OPENFILE) (DECLARE: DONTEVAL@LOAD DOCOPY (P (\NULLDEVICE)))) (LOCALVARS . T) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA \IS.NOT.RANDACCESSP \ILLEGAL.DEVICEOP STREAMPROP))))) (ADDTOVAR SYSTEMRECLST (DATATYPE STREAM ((COFFSET WORD) (CBUFSIZE WORD) (BINABLE FLAG) (BOUTABLE FLAG) (EXTENDABLE FLAG) (NIL BITS 5) (CBUFPTR POINTER) (NONDEFAULTDATEFLG FLAG) (REVALIDATEFLG FLAG) ( MULTIBUFFERHINT FLAG) (USERCLOSEABLE FLAG) (USERVISIBLE FLAG) (ACCESSBITS BITS 3) (FULLFILENAME POINTER) (DEVICE POINTER) (VALIDATION POINTER) (EPAGE WORD) (EOFFSET WORD) (F1 POINTER) (F2 POINTER) ( F3 POINTER) (F4 POINTER) (F5 POINTER) (FW6 WORD) (FW7 WORD) (BYTESIZE BYTE) (BUFFS POINTER) (CPAGE WORD) (FW8 WORD) (MAXBUFFERS WORD) (CHARPOSITION WORD) (DIRTYBITS WORD) (LINELENGTH WORD) ( EOLCONVENTION BITS 2) (CBUFDIRTY FLAG) (NIL BITS 5) (OUTCHARFN POINTER) (ENDOFSTREAMOP POINTER) ( OTHERPROPS POINTER) (IMAGEOPS POINTER) (IMAGEDATA POINTER) (EXTRASTREAMOP POINTER) (STRMBINFN POINTER) (STRMBOUTFN POINTER) (CBUFMAXSIZE WORD) (FW9 WORD) (F10 POINTER) (CHARSET BYTE)))) (DEFPRINT (QUOTE STREAM) (FUNCTION \STREAM.DEFPRINT)) (RPAQ? FILELINELENGTH 102) (RPAQ? \STREAM.DEFAULT.MAXBUFFERS 3) (/DECLAREDATATYPE (QUOTE FDEV) (QUOTE (POINTER FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((FDEV 0 POINTER) (FDEV 0 ( FLAGBITS . 0)) (FDEV 0 (FLAGBITS . 16)) (FDEV 0 (FLAGBITS . 32)) (FDEV 0 (FLAGBITS . 48)) (FDEV 0 ( FLAGBITS . 64)) (FDEV 0 (FLAGBITS . 80)) (FDEV 0 (FLAGBITS . 96)) (FDEV 0 (FLAGBITS . 112)) (FDEV 2 ( FLAGBITS . 0)) (FDEV 2 (FLAGBITS . 16)) (FDEV 2 (FLAGBITS . 32)) (FDEV 2 (FLAGBITS . 48)) (FDEV 2 ( FLAGBITS . 64)) (FDEV 2 (FLAGBITS . 80)) (FDEV 2 (FLAGBITS . 96)) (FDEV 2 (FLAGBITS . 112)) (FDEV 2 POINTER) (FDEV 4 POINTER) (FDEV 6 POINTER) (FDEV 8 POINTER) (FDEV 10 POINTER) (FDEV 12 POINTER) (FDEV 14 POINTER) (FDEV 16 POINTER) (FDEV 18 POINTER) (FDEV 20 POINTER) (FDEV 22 POINTER) (FDEV 24 POINTER) (FDEV 26 POINTER) (FDEV 28 POINTER) (FDEV 30 POINTER) (FDEV 32 POINTER) (FDEV 34 POINTER) (FDEV 36 POINTER) (FDEV 38 POINTER) (FDEV 40 POINTER) (FDEV 42 POINTER) (FDEV 44 POINTER) (FDEV 46 POINTER) ( FDEV 48 POINTER) (FDEV 50 POINTER) (FDEV 52 POINTER) (FDEV 54 POINTER) (FDEV 56 POINTER) (FDEV 58 POINTER) (FDEV 60 POINTER) (FDEV 62 POINTER) (FDEV 64 POINTER) (FDEV 66 POINTER) (FDEV 68 POINTER) ( FDEV 70 POINTER) (FDEV 72 POINTER) (FDEV 74 POINTER) (FDEV 76 POINTER) (FDEV 78 POINTER) (FDEV 80 POINTER) (FDEV 82 POINTER))) (QUOTE 84)) (ADDTOVAR SYSTEMRECLST (DATATYPE FDEV ((DEVICENAME POINTER) (RESETABLE FLAG) (RANDOMACCESSP FLAG) ( NODIRECTORIES FLAG) (PAGEMAPPED FLAG) (FDBINABLE FLAG) (FDBOUTABLE FLAG) (FDEXTENDABLE FLAG) (BUFFERED FLAG) (REMOTEP FLAG) (SUBDIRECTORIES FLAG) (NIL 6 FLAG) (CLOSEFILE POINTER) (DELETEFILE POINTER) ( DIRECTORYNAMEP POINTER) (EVENTFN POINTER) (GENERATEFILES POINTER) (GETFILEINFO POINTER) (GETFILENAME POINTER) (HOSTNAMEP POINTER) (OPENFILE POINTER) (READPAGES POINTER) (REOPENFILE POINTER) (SETFILEINFO POINTER) (TRUNCATEFILE POINTER) (WRITEPAGES POINTER) (BIN POINTER) (BOUT POINTER) (PEEKBIN POINTER) ( READP POINTER) (BACKFILEPTR POINTER) (DEVICEINFO POINTER) (FORCEOUTPUT POINTER) (LASTC POINTER) ( SETFILEPTR POINTER) (GETFILEPTR POINTER) (GETEOFPTR POINTER) (EOFP POINTER) (BLOCKIN POINTER) ( BLOCKOUT POINTER) (RENAMEFILE POINTER) (RELEASEBUFFER POINTER) (GETNEXTBUFFER POINTER) (SETEOFPTR POINTER) (FREEPAGECOUNT POINTER) (MAKEDIRECTORY POINTER) (WINDOWOPS POINTER) (WINDOWDATA POINTER) ( CHECKFILENAME POINTER) (HOSTALIVEP POINTER) (OPENP POINTER) (OPENFILELST POINTER) (REGISTERFILE POINTER)))) (ADDTOVAR \FILEDEVICES) (ADDTOVAR \FILEDEVICENAMES) (ADDTOVAR \DEVICENAMETODEVICE) (PUTPROPS \INHERITFDEVOP.D MACRO (X (SUBPAIR (QUOTE (NEWARGS OPNAME . ARGS)) (CONS (SUBST (QUOTE ( fetch DEVICEINFO of FDEV)) (QUOTE FDEV) (CDR X)) X) (QUOTE (FUNCTION (LAMBDA ARGS (FDEVOP (QUOTE OPNAME) (fetch DEVICEINFO of FDEV) . NEWARGS))))))) (PUTPROPS \INHERITFDEVOP.S MACRO ((OPNAME . ARGS) (FUNCTION (LAMBDA ARGS (FDEVOP (QUOTE OPNAME) (fetch DEVICEINFO of (fetch DEVICE of STREAM)) . ARGS))))) (RPAQ? LOGINHOST/DIR (QUOTE {DSK})) (RPAQ? \CONNECTED.DIRECTORY (QUOTE {DSK})) (RPAQQ FILING.TYPES ((BINARY 0) (DIRECTORY 1) (TEXT 2) (SERIALIZED 3) (INTERPRESS 4361) (TEDIT 6056) ( FASL 6057) (LAFITE 6058))) (MAPC (QUOTE ((FORCEOUTPUT FLUSHOUTPUT) (FORCEOUTPUT FLUSHMAP) (\GENERIC.BINS \NONPAGEDBINS) ( \GENERIC.BOUTS \NONPAGEDBOUTS))) (FUNCTION (LAMBDA (PAIR) (PUTD (CADR PAIR) (GETD (CAR PAIR)) T)))) (\NULLDEVICE) (PUTPROPS FILEIO COPYRIGHT ("Xerox Corporation" 1981 1982 1983 1984 1985 1986)) NIL