(FILECREATED " 9-Jan-84 19:11:43" ("compiled on " {PHYLUM}SOURCES>FILEIO.;103) " 8-Jan-84 18:35:22" recompiled exprs: \SETEOF in WORK dated " 8-Jan-84 18:41:31") (FILECREATED " 9-Jan-84 19:10:33" {PHYLUM}SOURCES>FILEIO.;103 221364Q changes to: (FNS \SETEOF) previous date: "21-NOV-83 15:38:05" {PHYLUM}SOURCES>FILEIO.;102) (/DECLAREDATATYPE (QUOTE STREAM) (QUOTE (WORD WORD FLAG FLAG FLAG (BITS 5) POINTER (BITS 3) 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) (BITS 6) POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER))) STREAMP D1 (L (0 X)) @`ð´@NIL (4 STREAMTYPE#) () \GETACCESS D1 (L (0 STREAM)) 1@ÊRdjð‘hdkð“gdlð“gdlð“glð“g(56Q SHOULDNT) (52Q BOTH 42Q OUTPUT 31Q APPEND 20Q INPUT) () \SETACCESS D1 (L (1 ACCESS 0 STREAM) P 0 \INTERRUPTABLE) ´@@É»AµI@jÏR¿@@@jÏ ¿jdð¡k€jYÏ¿Ijð¡k€jÏ¿@@g.¿g,±cgð²N@kÏR¿@KÊ@jð¡k€jÏ¿@KÉ,¿@g.¿@@jÏ ¿jdð¡k€jZÏ¿J±Adgð²R¿@lÏR¿@KÊPjð¡k€jÏ¿@KÊ`jð¡k€jÏ ¿@KÉ .¿@g,¿@jÏ¿j±¹gð²P@lÏR¿@KÊPjð¡k€jÏ¿@KÊ`jð¡k€jÏ ¿@KÉ .¿@g,¿@jÏ¿j°dAgð²V@lÏR¿@KÊ@jð¡k€jÏ¿@KÊPjð¡k€jÏ¿@KÊ`jð¡k€jÏ ¿@KÉ,¿@KÉ .†o A(660Q RAID) (643Q STREAM 631Q STREAM 607Q STREAM 565Q STREAM 543Q STREAM 531Q STREAM 522Q BOTH 506Q STREAM 477Q \STREAM.NOT.OPEN 474Q STREAM 462Q STREAM 440Q STREAM 416Q STREAM 404Q STREAM 375Q OUTPUT 361Q STREAM 352Q \STREAM.NOT.OPEN 347Q STREAM 335Q STREAM 313Q STREAM 271Q STREAM 257Q STREAM 247Q APPEND 215Q STREAM 211Q STREAM 202Q \STREAM.NOT.OPEN 177Q STREAM 165Q STREAM 143Q STREAM 132Q STREAM 123Q INPUT 113Q \STREAM.NOT.OPEN 105Q \STREAM.NOT.OPEN 102Q STREAM 76Q STREAM 36Q STREAM 32Q STREAM 26Q STREAM 15Q STREAM) ( 655Q "Illegal stream access mode") \CLOSEFILE D1 (L (0 STREAM)) ?@dÊRkð³¿@É&É@kH@ ¿@ÉÉ@kH@ @(73Q \SETACCESS 43Q \UPDATEOF) (55Q FDEV 50Q STREAM 25Q IMAGEOPS 20Q STREAM 4 STREAM) () \DEFINEDEVICE D1 (L (1 DEV 0 NAME) P 1 \INTERRUPTABLE) ±@ b¿Aµ'@` X²DH` ¿@` °)`ð²T@` ¸A`«HµA`¿@µ@d`ž°` ¿°ß`¿Hµ @h`A¿°ÐAlðœA ` µoA b±ÿcb±ÿ^(245Q ERROR 232Q FASSOC 224Q U-CASE 151Q DREMOVE 77Q FASSOC 53Q DREMOVE 40Q DREMOVE 23Q FASSOC 6 U-CASE) (227Q \DEVICENAMETODEVICE 204Q \DEVICENAMETODEVICE 200Q \DEVICENAMETODEVICE 166Q \FILEDEVICENAMES 162Q \FILEDEVICENAMES 154Q \FILEDEVICES 146Q \FILEDEVICES 136Q \FILEDEVICENAMES 124Q \FILEDEVICES 120Q \FILEDEVICES 107Q \FILEDEVICES 74Q \DEVICENAMETODEVICE 65Q FDEVTYPE# 56Q \FILEDEVICENAMES 50Q \FILEDEVICENAMES 43Q \DEVICENAMETODEVICE 35Q \DEVICENAMETODEVICE 20Q \DEVICENAMETODEVICE) ( 241Q "INVALID FILE DEVICE") \DELETEFILE D1 (L (1 DEV 0 FILENAME)) @ bAµdi bdšÉ@AlH(15Q \GETDEVICEFROMNAME 3 \ADD.CONNECTED.DIR) NIL () \DEVICEEVENT D1 (L (0 EVENT)) 6@gð«@gð¥@gð”`°` °dHÉ¹H@lIµîh(34Q REVERSE) (31Q \FILEDEVICES 24Q \FILEDEVICES 17Q BEFORESYSOUT 11Q BEFOREMAKESYS 3 BEFORELOGOUT) () \DO.PARAMS.AT.OPEN D1 (L (2 PARAMETERS 1 ACCESS 0 STREAM)) :B1HµhYd–ºIºi»Jdgð•¿@gˆgð˜@gK¿HX°Î(62Q SETFILEINFO) (56Q ENDOFSTREAMOP 50Q ENDOFSTREAMOP 44Q BUFFERS 35Q BUFFERS) () \GENERATEFILES D1 (L (0 PATTERN)) @ bd HÉ ¹H@lI(11Q \GETDEVICEFROMNAME 3 \ADD.CONNECTED.DIR) NIL () \GENERATENEXTFILE D1 (L (3 HOST/DIR 2 NOVERSION 1 SCRATCHLIST 0 GENOBJ)) @@ABClHNIL NIL () \GENERATENOFILES D1 (L (1 PATTERN 0 FDEV)) ggA o H²AHkÙ)l;ð²DgAHkØ³8I²AIkÙ)l;ð²+gAIkØ³gH¦I¤gAgghgAgh(134Q PACKFILENAME 100Q STRPOS 47Q STRPOS 15Q STRPOS 6 STRPOS) (142Q NILL 130Q BODY 124Q VERSION 121Q STAR 114Q NOSTAR 105Q \NOFILESNEXTFILEFN 71Q 40Q * 2 *) ( 12Q (CONSTANT (CHARACTER (CHARCODE ESC)))) \GETDEVICEFROMNAME D1 (L (2 DONTCREATE 1 NOERROR 0 NAME)) ‰ @lð²P@dk)l{ð²¿@lg@hddi µllÙX²*H` µOH X` µAB`!Jµhµ1A³-@l [É¹HKlI\µJZ°Þ`ð‘L»HK ¿K°Ñh(201Q \DEFINEDEVICE 140Q \LISPERROR 104Q FASSOC 75Q U-CASE 66Q FASSOC 54Q SUBATOM 42Q STRPOS) (170Q FDEVTYPE# 114Q \FILEDEVICES 101Q \DEVICENAMETODEVICE 63Q \DEVICENAMETODEVICE 31Q }) () \GETFILENAME D1 (L (2 FDEV 1 RECOG 0 NAME)) .@ b @ XµBµ@i bdŸÉ¹@ABlIÉµH(27Q \GETDEVICEFROMNAME 14Q \SEARCHOPENFILES 3 \ADD.CONNECTED.DIR) NIL () \GETFILENAME.OR.STREAM D1 (L (2 FDEV 1 RECOG 0 NAME)) U@d`ð– ´A@²>@dlð´8dið³2 bd µ%Bµ@i bdœÉ@ABlHbd• µ@@hi(122Q \GETSTREAM 110Q \SEARCHOPENFILES 60Q \GETDEVICEFROMNAME 46Q \SEARCHOPENFILES 40Q \ADD.CONNECTED.DIR 12Q \GETACCESS) (5 STREAMTYPE#) () \NOFILESNEXTFILEFN D1 (L (3 HOST/DIR 2 NOVERSION 1 SCRATCHLIST 0 GENFILESTATE)) ¹ @dgðž¿@g¿@ X°Ydgð‘hgð²!@g ¸@Hg @ g °)@kØY@ñ³gIg@ X²@Hg ¿H´FC³1B™Hi °7I°ÊgHg gHg gHg ŽB›ghgH€H (266Q DCHCON 261Q PACKFILENAME 243Q PACKFILENAME 237Q FILENAMEFIELD 225Q FILENAMEFIELD 213Q FILENAMEFIELD 174Q NAMEFIELD 155Q FILENAMEFIELD 141Q INFILEP 136Q PACKFILENAME 103Q FILENAMEFIELD 75Q INFILEP 70Q FILENAMEFIELD 57Q FULLNAME 26Q INFILEP) (255Q BODY 251Q VERSION 234Q VERSION 230Q VERSION 222Q EXTENSION 216Q EXTENSION 210Q NAME 204Q NAME 152Q VERSION 131Q BODY 125Q VERSION 100Q VERSION 65Q VERSION 54Q OLDEST 44Q STAR 35Q DONE 17Q DONE 10Q NOSTAR) () \OPENFILE D1 (L (3 PARAMETERS 2 RECOG 1 ACCESS 0 NAME)) u@@d`ð²¿@dAi˜¿@AC@YÉ† Y XÉ»IABCHlKZµ@l b°ÃA ¿JAgð“JÈ €jÍ¿JAgð“JÈ€jÍ¿JACJ(161Q \DO.PARAMS.AT.OPEN 106Q \SETACCESS 76Q \LISPERROR 50Q \GETDEVICEFROMNAME 44Q \ADD.CONNECTED.DIR 33Q \DO.PARAMS.AT.OPEN 23Q \IOMODEP) (141Q APPEND 135Q STREAM 117Q APPEND 113Q STREAM 10Q STREAMTYPE#) () \READPAGES D1 (L (2 BUFFERLIST 1 FIRSTPAGE 0 STREAM)) @ÉÉ@ABlHNIL NIL () \REMOVEDEVICE D1 (L (0 DEV) P 3 \INTERRUPTABLE) B@`YµhXµ@` @Z@ð•Jµêi°çI°Þ` ¿H` °Ç(73Q DREMOVE 60Q DREMOVE 24Q DREMOVE) (76Q \DEVICENAMETODEVICE 70Q \DEVICENAMETODEVICE 63Q \FILEDEVICENAMES 55Q \FILEDEVICENAMES 27Q \FILEDEVICES 21Q \FILEDEVICES 5 \DEVICENAMETODEVICE) () \REMOVEDEVICE.NAMES D1 (L (0 DEV)) 8`!HYµJ´ h` h@ð²I` ¿Ih¿iºI°Ò(50Q DREMOVE 24Q DREMOVE) (53Q \FILEDEVICENAMES 45Q \FILEDEVICENAMES 27Q \DEVICENAMETODEVICE 21Q \DEVICENAMETODEVICE 2 \DEVICENAMETODEVICE) () \RENAMEFILE D1 (L (1 NEWFILE 0 OLDFILE)) 2@ bA b@i H´Ai Hð›HÉ:¹@AHlI@A (57Q \GENERIC.RENAMEFILE 33Q \GETDEVICEFROMNAME 20Q \GETDEVICEFROMNAME 11Q \ADD.CONNECTED.DIR 3 \ADD.CONNECTED.DIR) NIL () \REVALIDATEFILE D1 (L (0 STREAM)) •@ÉÉ@É@ gh@É@lHHµg@ð‘h@HÉ@HÉ@HÉ@HÉ@HÉ@HÈÍ@HÈÍHÉ@É ³¶@HÉ@HÈ Í @HÈÍg(162Q EQUAL 16Q \GETACCESS) (222Q CHANGED 212Q STREAM 201Q STREAM 170Q STREAM 144Q STREAM 133Q STREAM 122Q STREAM 111Q STREAM 100Q STREAM 67Q STREAM 56Q STREAM 44Q DELETED 21Q OLD) () \TRUNCATEFILE D1 (L (2 LASTOFFSET 1 LASTPAGE 0 STREAM)) @ÉÉ@ABlHNIL NIL () \WRITEPAGES D1 (L (2 BUFFERLIST 1 FIRSTPAGE 0 STREAM)) @ @ÉÉ@ABlH(3 \UPDATEOF) NIL () \FILE.NOT.OPEN D1 (L (1 NOERROR 0 X)) Ahð´@d`ð”Éµ@l (26Q \LISPERROR) (12Q STREAMTYPE#) () \FILE.WONT.OPEN D1 (L (0 X)) @d`ð”Éµ@l (21Q \LISPERROR) (5 STREAMTYPE#) () \ILLEGAL.DEVICEOP D1 NIL /eoHk2JdIñ–¿K a½Lµ Mh\»JkØZ°çM&¼°÷(27Q ERROR) NIL ( 7 "Attempt to use undefined device operation") \IS.NOT.RANDACCESSP D1 NIL e@oId`ð”ÉµI (33Q ERROR) (21Q STREAMTYPE#) ( 13Q "File is not RANDACCESSP") \STREAM.NOT.OPEN D1 (L (0 STREAM)) @Éµ@l (12Q \LISPERROR) NIL () \FDEVINSTANCEA0674 D1 (L (0 STREAM)) @ÉÉ(É@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0677 D1 (L (2 FDEV 1 ATTRIB 0 STREAM)) BÉ(É@ABÉ(lHNIL (23Q FDEV 10Q FDEV 3 FDEV) () \FDEVINSTANCEA0680 D1 (L (4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 CDNAME)) DÉ(É@ABCDÉ(lHNIL (25Q FDEV 10Q FDEV 3 FDEV) () \FDEVINSTANCEA0683 D1 (L (2 BUFFERLIST 1 FIRSTPAGE 0 STREAM)) @ÉÉ(É@ABlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0686 D1 (L (3 FDEV 2 VALUE 1 ATTRIBUTE 0 STREAM)) CÉ(É@ABCÉ(lHNIL (24Q FDEV 10Q FDEV 3 FDEV) () \FDEVINSTANCEA0689 D1 (L (2 LASTOFFSET 1 LASTPAGE 0 STREAM)) @ÉÉ(É@ABlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0692 D1 (L (2 BUFFERLIST 1 FIRSTPAGE 0 STREAM)) @ÉÉ(É@ABlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0695 D1 (L (5 OLDSTREAM 4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 NAME)) DÉ(É@ABCDÉ(ElHNIL (25Q FDEV 10Q FDEV 3 FDEV) () \FDEVINSTANCEA0698 D1 (L (0 STREAM)) @ÉÉ(É@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0701 D1 (L (1 BYTE 0 STREAM)) @ÉÉ(É @AlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0704 D1 (L (1 NOERRORFLG 0 STREAM)) @ÉÉ(É"@AlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0707 D1 (L (0 STREAM)) @ÉÉ(É&@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0710 D1 (L (1 INDX 0 STREAM)) @ÉÉ(É.@AlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0713 D1 (L (0 STREAM)) @ÉÉ(É0@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0716 D1 (L (0 STREAM)) @ÉÉ(É2@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0719 D1 (L (0 STREAM)) @ÉÉ(É4@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0722 D1 (L (3 NBYTES 2 OFFSET 1 BASE 0 STREAM)) @ÉÉ(É6@ABClHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0725 D1 (L (3 NBYTES 2 OFFSET 1 BASE 0 STREAM)) @ÉÉ(É8@ABClHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0728 D1 (L (0 STREAM)) @ÉÉ(É*@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCE D1 (L (0 FDEV)) “`@ d@(¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg ¿dg"¿dg&¿dg.¿dg0¿dg2¿dg4¿dg6¿dg8¿dg*¿(6 NCREATE2) (215Q \FDEVINSTANCEA0728 206Q \FDEVINSTANCEA0725 177Q \FDEVINSTANCEA0722 170Q \FDEVINSTANCEA0719 161Q \FDEVINSTANCEA0716 152Q \FDEVINSTANCEA0713 143Q \FDEVINSTANCEA0710 134Q \FDEVINSTANCEA0707 125Q \FDEVINSTANCEA0704 116Q \FDEVINSTANCEA0701 107Q \FDEVINSTANCEA0698 100Q \FDEVINSTANCEA0695 71Q \FDEVINSTANCEA0692 62Q \FDEVINSTANCEA0689 53Q \FDEVINSTANCEA0686 44Q \FDEVINSTANCEA0683 35Q \FDEVINSTANCEA0680 26Q \FDEVINSTANCEA0677 17Q \FDEVINSTANCEA0674 2 FDEVTYPE#) () CNDIR D1 (L (0 HOST/DIR)) _@µ `µg bddlð®¿dd¨¿@l ¿@`R@k)l{ð²%@lg@lµ@l ]kÙ¹@MkØ ¸Ii \³Ih`i]µ$o@ ¿gIgH³1LÊ jð³!o±ˆi \²ÙM¹gIgHb°Ðg`°aoH ²C`HÓàÐÉÊkð•o°HHdmÿ)l>ð²¿`HÓàÐÉÊlð•o°'H°$g °Hmÿ)l>ð—gH ‰gHg[LÉ¾KLlN]µoK hið¡M»oK ½KlMkÙ¹KMkØ µoºI¿JK(513Q SUBSTRING 503Q SUBATOM 471Q STRPOS 452Q ERROR 424Q PACK* 421Q CONCAT 406Q CONCAT 365Q CONCAT 264Q STRPOS 240Q PACK* 220Q \GETDEVICEFROMNAME 162Q ERROR 147Q FIXSPELL 133Q \GETDEVICEFROMNAME 125Q SUBATOM 115Q SUBATOM 107Q \LISPERROR 77Q STRPOS 43Q \LISPERROR 15Q U-CASE) (533Q \CONNECTED.DIR 526Q \CONNECTED.HOST 416Q > 412Q < 402Q < 362Q > 331Q \PNPSPACE 271Q \PNPSPACE 252Q USERNAME 247Q < 234Q } 230Q { 172Q } 166Q { 143Q \FILEDEVICENAMES 71Q } 50Q \CONNECTED.HOST 12Q {DSK} 5 LOGINHOST/DIR) ( 521Q "" 465Q "}" 446Q "Non-existent directory" 352Q "" 311Q "" 260Q "<" 211Q "" 156Q "Unrecognized host") DIRECTORYNAME D1 (L (1 STRPTR 0 DIRNAME)) =@dið²¿g`g`†hð´`H¡hAd™¿HkmÿA‘HH (72Q MKSTRING 62Q SUBSTRING 25Q PACK*) (35Q LOGINHOST/DIR 22Q \CONNECTED.DIR 17Q } 14Q \CONNECTED.HOST 11Q {) () DIRECTORYNAMEP D1 (L (1 HOSTNAME 0 DIRNAME)) (A›gAg@ƒ@ !Hi Yd˜ÉºHIlJ(31Q \GETDEVICEFROMNAME 21Q \ADD.CONNECTED.DIR 14Q PACKFILENAME) (10Q BODY 4 HOST) () HOSTNAMEP D1 (L (0 NAME)) a@@dlð“ Š´;@ Xd l{ð²¿HlgHld²kÙX` ©`Zµh´i[É¹HkI•K³ói°îJ°å(76Q MEMB 67Q SUBATOM 57Q STRPOS 35Q CHCON1 30Q MKATOM 25Q U-CASE 14Q U-CASE) (102Q \FILEDEVICES 73Q \FILEDEVICENAMES 51Q }) () \ADD.CONNECTED.DIR D1 (L (0 FILENAME)) G@k)dl{ð‘@l<ð²'g`g@dl)l>ðž¿@lmÿµog`g`@ (104Q PACK* 62Q PACK* 51Q SUBATOM) (77Q \CONNECTED.DIR 74Q } 71Q \CONNECTED.HOST 66Q { 27Q } 24Q \CONNECTED.HOST 21Q {) ( 57Q "") \BACKFILEPTR D1 (L (0 STREAM)) @ÉÉ&@kHNIL NIL () BIN D1 (L (0 STREAM)) @ NIL NIL () \BACKPEEKBIN D1 (L (0 STREAM) P 0 \INTERRUPTABLE) @ @ ´@ (12Q \BACKFILEPTR 3 \UPDATEOF) NIL () \BACKBIN D1 (L (0 STREAM)) @ @ ´@ (15Q \PEEKBIN 7 \BACKFILEPTR 3 \UPDATEOF) NIL () \BIN D1 (L (0 STREAM)) @bÉ,@kHNIL (3 STREAM) () \BINS D1 (L (3 NBYTES 2 OFF 1 BASE 0 STREAM)) @bÉÉ6@ABClHNIL (3 STREAM) () BOUT D1 (L (1 BYTE 0 STREAM)) @A (4 \BOUT) NIL () \BOUT D1 (L (1 BYTE 0 STREAM)) @bÉ.@AlHNIL (3 STREAM) () \BOUTS D1 (L (3 NBYTES 2 OFF 1 BASE 0 STREAM)) @bÉÉ8@ABClHNIL (3 STREAM) () COPYBYTES D1 (L (3 END 2 START 1 DSTFIL 0 SRCFIL)) Ç@g Ag RHdÉÊjð²¿C¦HIBoHÉ ZC²/BjØ[]d¡“jMñ–Bl ¿HK ¿Cdmÿð’¿°)Jñ³%C°#HdÉÊ0jð¨ÈáàHÈØˆÉÉ0¾HkN»Bµ1J¼KLñšoLKÙ ¿HdÉÊ0jð²¿LKÙdjñ²IH ¿k°òKØdJñ²Í¿°ÉIKLi(303Q \PAGEDCOPYBYTES 257Q \BOUT 224Q ERROR 123Q \SETFILEPTR 115Q \LISPERROR 63Q \GETEOFPTR 57Q ERROR 44Q \SLOWCOPYBYTES 15Q \GETSTREAM 6 \GETSTREAM) (12Q OUTPUT 3 INPUT) ( 216Q "Negative number of bytes to copy" 51Q "COPYBYTES: Source file is not random access") \SLOWCOPYBYTES D1 (L (2 NBYTES 1 DSTREAM 0 SSTREAM)) 2Bµ@ÉÉ4@kH²AÉdjñšA@ ¿kÙ°ó¿°ìA@ ¿°Ô(55Q \BOUT 37Q \BOUT) NIL () COPYFILEA0043 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FROMFILE F 1 RESETVARSLST F 2 TOFILE F 3 RESETY) oPg chQc¿PR ci(31Q \COPYOPENFILE 12Q OPENSTREAM) (7 INPUT) ( 3 (PROGN (CLOSEF OLDVALUE))) COPYFILE D1 (P 1 RESETY P 0 LISPXHIST I 1 TOFILE I 0 FROMFILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q COPYFILEA0043) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \COPYOPENFILE D1 (L (1 NEWNAME 0 INSTREAM) F 6 RESETVARSLST) ö`@g X™gHhJº@g X™gHhJº@g YµIoAgghgJ [hVcIgð¢±”Kg Hð’±‡@g"¿@Ê\¿@ ]³1°xgð³µgIhJºIgð²¤@g X²šgHhJº°ŽKMdl ð²)¿Ldjð”¿l °-lð²@i l ð–@ ¿l °l °l Žl ð™Lkð’l ƒl €M °Š@K ¿K (363Q CLOSEF 356Q COPYBYTES 347Q \OUTCHAR 303Q \PEEKBIN 227Q GETFILEINFO 137Q GETFILEINFO 107Q OPENSTREAM 57Q GETFILEINFO 34Q GETFILEINFO 11Q GETFILEINFO) (235Q EOL 224Q EOL 215Q TEXT 202Q TYPE 174Q ? 151Q NILL 134Q EOL 123Q TEXT 101Q SEQUENTIAL 75Q NEW 72Q OUTPUT 54Q TYPE 41Q LENGTH 31Q LENGTH 16Q CREATIONDATE 6 CREATIONDATE) ( 66Q (AND RESETSTATE (DELFILE (CLOSEF OLDVALUE)))) EOFP D1 (L (0 FILE)) !@gi@ ¿@ ¿HÉÉ4¹HkI(20Q \GETSTREAM 13Q \GETSTREAM 7 \GETSTREAM) (3 INPUT) () FLUSHOUTPUT D1 (L (0 STREAM)) @g bdÉÉ*@kH(6 \GETSTREAM) (21Q FDEV 14Q STREAM 3 OUTPUT) () \FLUSH.OPEN.STREAMS D1 (L (0 FDEV)) ;`°2dHÉ@ð²!HÊRlåjð³HÉÉ*¹HkI¿µÏhNIL (52Q FDEV 45Q STREAM 27Q STREAM 15Q STREAM 2 \OPENFILES) () GETEOFPTR D1 (L (0 FILE)) @ HÉÉ2¹HkI(3 \GETSTREAM) NIL () GETFILEINFO D1 (L (1 ATTRIB 0 FILE)) ç@g AHd`ð¢±¿Agð”H HÉYÉºHAIlJµ‚±¬Agð§Adgð•¿HÊgð”H Adgð›¿H nÿØãâgð²"HÊdjð“gdkð“glð“gAdgð”¿HÈgð´HÉ"²>Agð¥Agð‘hH YÉ»HAIlKµAgð´IÉ¼HgIlLd•nÿØãâ@l (344Q \LISPERROR 264Q \GETDEVICEFROMNAME 211Q SHOULDNT 135Q \GETEOFPTR 120Q \GETEOFPTR 37Q \GETACCESS 6 \GETFILENAME.OR.STREAM) (320Q LENGTH 305Q SIZE 254Q OPENBYTESIZE 246Q ACCESS 231Q ENDOFSTREAMOP 217Q BUFFERS 205Q CRLF 175Q LF 165Q CR 147Q EOL 126Q SIZE 112Q LENGTH 77Q OPENBYTESIZE 70Q BYTESIZE 31Q ACCESS 17Q STREAMTYPE# 3 OLD) () GETFILEPTR D1 (L (0 FILE)) @ HÉÉ0¹HkI(3 \GETSTREAM) NIL () SETFILEINFO D1 (L (2 VALUE 1 ATTRIB 0 FILE)) @g QHd`ð¢±£¿Agð¬Agð¦Adgð‘hgð²HBdd¡—¿jBñ¡BƒB Adgð²,¿HBdgð“¿j°gð’lŒBdgð’¿k‚ ÏBgð˜HB"BAgð²HBjØºkJñ¡J€k[ÍKHÉYÉ¼HABIlL²NAgð’±ÿlAgð’±ÿcAdgð’±ÿYgð²HBdd¡—¿jBñ¡BƒB H YÉ½HABIlM@l (410Q \LISPERROR 365Q \GETDEVICEFROMNAME 360Q \SETCLOSEDFILELENGTH 355Q \ILLEGAL.ARG 166Q \ILLEGAL.ARG 110Q \SETEOFPTR 105Q \ILLEGAL.ARG 6 \GETFILENAME.OR.STREAM) (325Q LENGTH 315Q EOLCONVENTION 303Q OPENBYTESIZE 272Q ACCESS 224Q STREAM 215Q BUFFERS 204Q STREAM 176Q ENDOFSTREAMOP 156Q LF 144Q CRLF 133Q CR 126Q STREAM 116Q EOL 55Q LENGTH 46Q OPENBYTESIZE 37Q BYTESIZE 31Q ACCESS 17Q STREAMTYPE# 3 OLD) () SETFILEPTR D1 (L (1 ADR 0 FILE)) =@ HÉÉ.¹HAdmÿð–¿d °d¡•jAñ¡A…Al lI¿HjÍA(55Q \LISPERROR 30Q \GETEOFPTR 3 \GETSTREAM) (66Q STREAM) () \NONPAGEDBINS D1 (L (3 NBYTES 2 OFF 1 BASE 0 STREAM)) CHjñ²AB@ Ç¿BkØb¹HkÙX°ìINIL NIL () \NONPAGEDBOUTS D1 (L (3 NBYTES 2 OFF 1 BASE 0 STREAM)) CHjñ²@ABÂ ¿BkØb¹HkÙX°êI(17Q \BOUT) NIL () \GENERIC.RENAMEFILEA0044 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 OLDFILE F 1 NEWFILE F 2 RESETVARSLST F 3 RESETY) ,oPg chRc¿PQ c´P ¿Qci(44Q \DELETEFILE 41Q CLOSEF 31Q \COPYOPENFILE 12Q OPENSTREAM) (7 INPUT) ( 3 (AND RESETSTATE (CLOSEF? OLDVALUE))) \GENERIC.RENAMEFILE D1 (P 1 RESETY P 0 LISPXHIST I 1 NEWFILE I 0 OLDFILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q \GENERIC.RENAMEFILEA0044) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \GENERIC.READP D1 (L (1 FLG 0 STREAM) P 1 \INTERRUPTABLE F 3 \PRIMTERMSA) <@ÉÉ4@kHhð´+Ahðhðµ$S@ Âkðhðµ @ @ÉÉ4º@kJhð@ ¿(70Q \BACKFILEPTR 34Q \PEEKBIN) NIL () \EOSERROR D1 (L (0 STREAM)) @Éµ@li(13Q \LISPERROR) NIL () \GETEOFPTR D1 (L (0 STREAM)) @ÉÉ2@kHNIL NIL () \INCFILEPTR D1 (L (1 AMOUNT 0 STREAM) P 0 \INTERRUPTABLE) @ÉÊ0jð”@ 0@ÈAØ¹nIñ®@ÈIãâØºInÿå°'jIñ²[@ÈnIÙkÙYãâÙºjJñ‘jºnInÿåÙkÙ¹@ @dÈjðŸdÈ ¿@kÍ¿@h@jÍ@JÍ@IÍhjAñ”@ ¿@IÍh(221Q \UPDATEOF 142Q \SETIODIRTY 125Q \UPDATEOF 14Q \ILLEGAL.ARG) (226Q STREAM 204Q STREAM 175Q STREAM 166Q STREAM 157Q STREAM 147Q STREAM) () \NEWLENGTHIS D1 (L (2 OFF 1 PGE 0 STREAM)) 1@ @È AÙjHñ“gHjð²@ÈBÙXjHñ³îdjð“gg(3 \UPDATEOF) (56Q SHORTER 52Q SAME 22Q LONGER) () \PEEKBIN D1 (L (1 NOERRORFLG 0 STREAM)) @ÉÉ"@AlHNIL NIL () \SETCLOSEDFILELENGTH D1 (L (1 NBYTES 0 FILENAME)) @ggHA H i(25Q \CLOSEFILE 21Q \SETEOFPTR 11Q \OPENFILE) (6 OLD 3 BOTH) () \SETEOF D1 (L (2 EO 1 EP 0 STREAM) P 0 \INTERRUPTABLE) ^nBñ¯ABãâØb¿Bnÿåb¿@AÍ @BÍAd@Èð”¿@B°.@Èýñ²@dÈjð´dÈ ¿@kÍ¿@h¿@jˆ@É´ @nÍh(101Q \SETIODIRTY) NIL () \SETEOFPTR D1 (L (1 LEN 0 STREAM)) uAãâAnÿå@HIdgð²:¿@ÊRlåjð³,@HkØ@È @HI¿H@ Inÿ@H @HIihdgð³÷gð²@ÊRlåjð³è@HIi(162Q SHOULDNT 155Q \SETEOF 113Q \TRUNCATEFILE 105Q \SETIODIRTY 100Q \ZEROBYTES 71Q \MAPPAGE 64Q FORGETPAGES 60Q \SETEOF 20Q \NEWLENGTHIS) (131Q LONGER 123Q SAME 24Q SHORTER) () \SETFILEPTR D1 (L (1 INDX 0 STREAM)) @ÉÉ.@AlHNIL NIL () \UPDATEOF D1 (L (0 STREAM)) @É´@È@Èñ´@dÈ@È(27Q \SETEOF) NIL () (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))) (MACROS APPENDABLE APPENDONLY DIRTYABLE OPENED OVERWRITEABLE READABLE READONLY WRITEABLE) (MACROS TestMasked) (CONSTANTS * EOLCONVENTIONS))) (FNS STREAMP) (COMS (* Needed b/c of STREAM initialization) (INITVARS (FILELINELENGTH 146Q))) (FNS \GETACCESS \SETACCESS) (DECLARE: DONTCOPY (EXPORT (MACROS FDEVOP) (RECORDS FDEV FILEGENOBJ))) (INITRECORDS FDEV) (SYSRECORDS FDEV)) (COMS (* Device operations) (FNS \CLOSEFILE \DEFINEDEVICE \DELETEFILE \DEVICEEVENT \DO.PARAMS.AT.OPEN \GENERATEFILES \GENERATENEXTFILE \GENERATENOFILES \GETDEVICEFROMNAME \GETFILENAME \GETFILENAME.OR.STREAM \NOFILESNEXTFILEFN \OPENFILE \READPAGES \REMOVEDEVICE \REMOVEDEVICE.NAMES \RENAMEFILE \REVALIDATEFILE \TRUNCATEFILE \WRITEPAGES) (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})))) (COMS (* Directory defaulting) (FNS CNDIR DIRECTORYNAME DIRECTORYNAMEP HOSTNAMEP \ADD.CONNECTED.DIR)) (COMS (* Binary I/O - Public functions) (FNS \BACKFILEPTR BIN \BACKPEEKBIN \BACKBIN \BIN \BINS BOUT \BOUT \BOUTS COPYBYTES \SLOWCOPYBYTES COPYFILE \COPYOPENFILE EOFP FLUSHOUTPUT \FLUSH.OPEN.STREAMS GETEOFPTR GETFILEINFO GETFILEPTR SETFILEINFO SETFILEPTR) (* Generic functions) ( FNS \NONPAGEDBINS \NONPAGEDBOUTS \GENERIC.RENAMEFILE \GENERIC.READP) (P (MOVD? (QUOTE FLUSHOUTPUT) ( QUOTE FLUSHMAP)))) (COMS (* Internal functions) (FNS \EOSERROR \GETEOFPTR \INCFILEPTR \NEWLENGTHIS \PEEKBIN \SETCLOSEDFILELENGTH \SETEOF \SETEOFPTR \SETFILEPTR \UPDATEOF) (DECLARE: DONTCOPY (EXPORT ( MACROS \DECFILEPTR \GETFILEPTR \WIN \WOUT \BINS \BOUTS \EOFP) (CONSTANTS BitsPerByte (ByteOffsetSize ( SELECTQ (SYSTEMTYPE) (VAX 12Q) 11Q)) WordsPerPage) (RECORDS BYTEPTR)) (CONSTANTS MaxChar))) (LOCALVARS . T) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA \IS.NOT.RANDACCESSP \ILLEGAL.DEVICEOP))))) (ADDTOVAR SYSTEMRECLST (DATATYPE STREAM ((COFFSET WORD) (CBUFSIZE WORD) (BINABLE FLAG) (BOUTABLE FLAG) (EXTENDABLE FLAG) (NIL BITS 5) (CPPTR POINTER) (NIL BITS 3) (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) (NIL BITS 6) (OUTCHARFN POINTER) (ENDOFSTREAMOP POINTER) ( OTHERPROPS POINTER) (IMAGEOPS POINTER) (IMAGEDATA POINTER) (EXTRASTREAMOP POINTER) (STRMBINFN POINTER) (STRMBOUTFN POINTER)))) (RPAQ? FILELINELENGTH 146Q) (/DECLAREDATATYPE (QUOTE FDEV) (QUOTE (POINTER 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))) (ADDTOVAR SYSTEMRECLST (DATATYPE FDEV ((DEVICENAME POINTER) (RESETABLE FLAG) (RANDOMACCESSP FLAG) ( NODIRECTORIES FLAG) (PAGEMAPPED FLAG) (FDBINABLE FLAG) (FDBOUTABLE FLAG) (FDEXTENDABLE 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) ( FLUSHOUTPUT POINTER) (LASTC POINTER) (SETFILEPTR POINTER) (GETFILEPTR POINTER) (GETEOFPTR POINTER) ( EOFP POINTER) (BLOCKIN POINTER) (BLOCKOUT POINTER) (RENAMEFILE 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})) (MOVD? (QUOTE FLUSHOUTPUT) (QUOTE FLUSHMAP)) (PUTPROPS FILEIO COPYRIGHT ("Xerox Corporation" 3675Q 3676Q 3677Q 3700Q)) NIL