(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "11-Oct-2022 11:34:00" ("compiled on " {DSK}larry>medley>sources>FILEIO.;2) "11-Oct-2022 11:00:55" brecompiled changes%: \PRINT-REVALIDATION-RESULT in "Welcome to Fuller sysout 11-Oct-2022 ..." dated "11-Oct-2022 11:05:52") (FILECREATED "11-Oct-2022 11:34:00" {DSK}larry>medley>sources>FILEIO.;2 161841 :CHANGES-TO (FNS \PRINT-REVALIDATION-RESULT) :PREVIOUS-DATE "10-Oct-2022 15:58:01" {DSK}larry>medley>sources>FILEIO.;1) (/DECLAREDATATYPE (QUOTE STREAM) (QUOTE (WORD WORD FLAG (BITS 3) POINTER BYTE BYTE WORD WORD WORD FLAG FLAG FLAG FLAG POINTER FLAG FLAG FLAG FLAG POINTER FLAG (BITS 2) FLAG POINTER POINTER POINTER WORD WORD POINTER POINTER POINTER POINTER POINTER WORD WORD WORD WORD POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD POINTER POINTER POINTER POINTER POINTER)) (QUOTE (( STREAM 0 (BITS . 15)) (STREAM 1 (BITS . 15)) (STREAM 2 (FLAGBITS . 0)) (STREAM 2 (BITS . 18)) (STREAM 2 POINTER) (STREAM 4 (BITS . 7)) (STREAM 4 (BITS . 135)) (STREAM 5 (BITS . 15)) (STREAM 6 (BITS . 15)) (STREAM 7 (BITS . 15)) (STREAM 8 (FLAGBITS . 0)) (STREAM 8 (FLAGBITS . 16)) (STREAM 8 (FLAGBITS . 32) ) (STREAM 8 (FLAGBITS . 48)) (STREAM 8 POINTER) (STREAM 10 (FLAGBITS . 0)) (STREAM 10 (FLAGBITS . 16)) (STREAM 10 (FLAGBITS . 32)) (STREAM 10 (FLAGBITS . 48)) (STREAM 10 POINTER) (STREAM 12 (FLAGBITS . 0) ) (STREAM 12 (BITS . 17)) (STREAM 12 (FLAGBITS . 48)) (STREAM 12 POINTER) (STREAM 14 POINTER) (STREAM 16 POINTER) (STREAM 18 (BITS . 15)) (STREAM 19 (BITS . 15)) (STREAM 20 POINTER) (STREAM 22 POINTER) ( STREAM 24 POINTER) (STREAM 26 POINTER) (STREAM 28 POINTER) (STREAM 30 (BITS . 15)) (STREAM 31 (BITS . 15)) (STREAM 32 (BITS . 15)) (STREAM 33 (BITS . 15)) (STREAM 34 POINTER) (STREAM 36 POINTER) (STREAM 38 POINTER) (STREAM 40 POINTER) (STREAM 42 POINTER) (STREAM 44 POINTER) (STREAM 46 POINTER) (STREAM 48 POINTER) (STREAM 50 POINTER) (STREAM 52 (BITS . 15)) (STREAM 53 (BITS . 15)) (STREAM 54 POINTER) ( STREAM 56 POINTER) (STREAM 58 POINTER) (STREAM 60 POINTER) (STREAM 62 POINTER))) (QUOTE 64)) STREAMPROP :D8 (L (0 X)) 0eHdlñž¿kalalalð´ kala (45 \ILLEGAL.ARG 39 GETSTREAMPROP 23 PUTSTREAMPROP) NIL () GETSTREAMPROP :D8 (L (1 PROP 0 STREAM)) >Agð³Agð©Adgð—¿@ gð˜@É*@É,A'(32 \EXTERNALFORMAT) (55 STREAM 46 STREAM 38 ENDOFSTREAMOP 23 :EXTERNAL-FORMAT 14 EXTERNALFORMAT 5 FORMAT) () PUTSTREAMPROP :D8 (L (2 VALUE 1 PROP 0 STREAM) P 1 OLDVALUE) ÂAgð³AgðªAdgð².¿@dÊ0jð¬¿o@ h B—@B ¿gð²@É*@B*¿@É,!HµB´@ABh,hA'YBšHAB¿°/I´-HdAð² ¿@H,¿°Að—Jd¿†JZµîI(142 LISTPUT 68 \EXTERNALFORMAT 59 \EXTERNALFORMAT 52 ERROR) (162 STREAM 120 STREAM 103 STREAM 92 STREAM 84 STREAM 75 ENDOFSTREAMOP 34 STREAM 23 :EXTERNAL-FORMAT 14 EXTERNALFORMAT 5 FORMAT) ( 46 "EXTERNALFORMAT CANNOT BE CHANGED") STREAMP :D8 (L (0 X)) @Ã´@NIL (5 STREAM) () \DEFPRINT.BY.NAME :D8 (L (3 TYPENAME 2 NAME 1 STREAM 0 OBJECT) F 0 \THISFILELINELENGTH F 1 *READTABLE*) P²#C lÔBµljÔAÈØPñ–A ¿AQÊ Al< C A B²Al ¿B A ¿Al/ @A Al> i °’(125 NCHARS 118 \OUTCHAR 110 \PRINTADDR 103 \OUTCHAR 94 \SOUT 88 MKSTRING 81 \OUTCHAR 70 \SOUT 64 MKSTRING 58 \OUTCHAR 50 \OUTCHAR 34 FRESHLINE 8 NCHARS) (42 READTABLEP 22 STREAM) () \STREAM.DEFPRINT :D8 (L (1 OUTSTREAM 0 STRM)) @Êdkð—¿o°*dlð—¿o°dlð–¿oŽlð•o„o@Ah@dÉ²¿Ho@É°6É Ã²"Ho@É É oŠHo (141 \DEFPRINT.BY.NAME 136 CONCAT 124 CONCAT 114 CL:STRING-CAPITALIZE 109 STRING 82 CONCAT) (91 FDEV) ( 131 " Stream" 119 " Stream" 99 " " 74 " Stream on " 55 "Closed" 49 "Append" 39 "IO" 26 "Output" 13 "Input") \FDEV.DEFPRINT :D8 (L (1 STREAM 0 DEV)) @A@Éo(19 \DEFPRINT.BY.NAME) (7 FDEV) ( 14 "FDev") \GETACCESS :D8 (L (0 STREAM)) @@Êdjð‘hdkð•gdlð•gdlð•glð•g(61 SHOULDNT) (55 BOTH 45 OUTPUT 34 APPEND 23 INPUT 5 STREAM) () \SETACCESS :D8 (L (1 ACCESS 0 STREAM) P 0 \INTERRUPTABLE) L@@É »AµY@jÏ¿@@@jÏ ¿jdð¡k€jYÏ ¿Ijð¡k€jÏ ¿@@g&¿g$±ægð²f@kÏ¿@KÊ@jð¡k€jÏ ¿@KÉ,$¿@g&¿@@jÏ ¿jdð¡k€jZÏ ¿J±zAdgð²o¿@lÏ¿@KÊPjð¡k€jÏ ¿@KÊ`jð¡k€jÏ ¿@KÉ.&¿@g$¿@jÏ ¿j±gð²n@lÏ¿@KÊPjð¡k€jÏ ¿@KÊ`jð¡k€jÏ ¿@KÉ.&¿@g$¿@jÏ ¿j±Agð²{@lÏ¿@KÊ@jð¡k€jÏ ¿@KÊPjð¡k€jÏ ¿@KÊ`jð¡k€jÏ ¿@KÉ,$¿@KÉ.&‰o A(584 RAID) (569 FDEV 563 STREAM 552 FDEV 546 STREAM 527 FDEV 521 STREAM 502 FDEV 496 STREAM 477 FDEV 471 STREAM 459 STREAM 450 BOTH 435 STREAM 426 \STREAM.NOT.OPEN 421 STREAM 410 FDEV 404 STREAM 385 FDEV 379 STREAM 360 FDEV 354 STREAM 342 STREAM 333 OUTPUT 319 STREAM 310 \STREAM.NOT.OPEN 305 STREAM 294 FDEV 288 STREAM 269 FDEV 263 STREAM 244 FDEV 238 STREAM 226 STREAM 216 APPEND 188 STREAM 182 STREAM 173 \STREAM.NOT.OPEN 168 STREAM 157 FDEV 151 STREAM 132 FDEV 126 STREAM 115 STREAM 106 INPUT 96 \STREAM.NOT.OPEN 88 \STREAM.NOT.OPEN 83 STREAM 77 STREAM 43 STREAM 37 STREAM 31 STREAM 20 STREAM 8 STREAM) ( 579 "Illegal stream access mode") \DEFINEDEVICE :D8 (L (1 DEV 0 NAME) P 1 \INTERRUPTABLE) Û@ b¿Aµ3@`X²VH` ¿@` °/Ã²k@`¸A`¯HµA`¿@µ@d`²° ` ¿°Ò`¿Hµ@h`A¿°¿Ad3@ðžA `µoA b±ÿ;b±ÿ6(207 ERROR 187 U-CASE 132 DREMOVE 55 DREMOVE 38 DREMOVE 8 U-CASE) (192 \DEVICENAMETODEVICE 169 \DEVICENAMETODEVICE 163 \DEVICENAMETODEVICE 151 \FILEDEVICENAMES 145 \FILEDEVICENAMES 137 \FILEDEVICES 127 \FILEDEVICES 116 \FILEDEVICENAMES 104 \FILEDEVICES 98 \FILEDEVICES 87 \FILEDEVICES 76 \DEVICENAMETODEVICE 68 FDEV 60 \FILEDEVICENAMES 50 \FILEDEVICENAMES 43 \DEVICENAMETODEVICE 33 \DEVICENAMETODEVICE 20 \DEVICENAMETODEVICE) ( 201 "INVALID FILE DEVICE") \GETDEVICEFROMNAME :D8 (L (2 DONTCREATE 1 NOERROR 0 NAME)) 5@dd3@ð©¿@ ²@g µ@B µAhð´ @l (50 \LISPERROR 35 \GETDEVICEFROMHOSTNAME 26 FILENAMEFIELD 13 STRINGP) (21 HOST) () \GETDEVICEFROMHOSTNAME :D8 (L (1 DONTCREATE 0 HOSTN)) X@`µN@ b`µ=Ahð´8`1HµhYÉ»@IlKZµHX°åÃ‘J¹@I I(84 \DEFINEDEVICE 15 U-CASE) (74 FDEV 52 FDEV 36 \FILEDEVICES 22 \DEVICENAMETODEVICE 5 \DEVICENAMETODEVICE) () \REMOVEDEVICE :D8 (L (0 DEV) P 3 \INTERRUPTABLE) Y0`YµhXµ$@` @Z@ð•Jµäi°áI°Ø` ¿H` °µ(80 DREMOVE 63 DREMOVE 29 DREMOVE) (85 \DEVICENAMETODEVICE 75 \DEVICENAMETODEVICE 68 \FILEDEVICENAMES 58 \FILEDEVICENAMES 34 \FILEDEVICES 24 \FILEDEVICES 10 \DEVICENAMETODEVICE) () \REMOVEDEVICE.NAMES :D8 (L (1 NAMES 0 DEV)) X`1HYµJ´h` h@ð²-AŸI[Að¨A² KA²I` ¿Ih¿iºI°´(70 DREMOVE 26 DREMOVE) (75 \FILEDEVICENAMES 65 \FILEDEVICENAMES 31 \DEVICENAMETODEVICE 21 \DEVICENAMETODEVICE 4 \DEVICENAMETODEVICE) () \CLOSEFILE :D8 (L (1 ABORTFLG 0 STREAM)) Z@dÊkð³¿@É.É@kH@É !HÉ¹@AlIHÉ ºH@lJ¿@h ¿(86 \SETACCESS) (69 FDEV 54 FDEV 43 STREAM 27 IMAGEOPS 20 STREAM 6 STREAM) () \DELETEFILE :D8 (L (1 DEV 0 FILENAME)) 6@dÃ–¿@ bAµ di bdŸÉ@AlH(31 \GETDEVICEFROMNAME 19 \ADD.CONNECTED.DIR 14 INTERLISP-NAMESTRING) (40 FDEV 6 PATHNAME) () \DEVICEEVENT :D8 (L (0 EVENT)) @gð³@gð³@gð¨@gð´iAH–`°<` °0d\É ¹L@lI¿H²LÉºhgLlJ[µµÑhdÊjðškÏ¿k¿K°Û(57 REVERSE) (128 STREAM 117 STREAM 95 OUTPUT 86 FDEV 67 FDEV 52 \FILEDEVICES 45 \FILEDEVICES 31 BEFORESAVEVM 23 BEFORESYSOUT 14 BEFOREMAKESYS 5 BEFORELOGOUT) () \GENERATEFILES :D8 (L (3 DEPTH 2 OPTIONS 1 DESIREDPROPS 0 PATTERN) P 1 FILING.ENUMERATION.DEPTH F 3 FILING.ENUMERATION.DEPTH) /@ bd Cd3 ¥“nÿÿ€SHÉºH@ABlJ(13 \GETDEVICEFROMNAME 5 \ADD.CONNECTED.DIR) (33 FDEV) () \GENERATENEXTFILE :D8 (L (1 NAMEONLY 0 GENOBJ)) @@AlHNIL NIL () \GENERATEFILEINFO :D8 (L (1 ATTRIBUTE 0 GENOBJ)) @@AlHNIL NIL () \GETFILENAME :D8 (L (2 FDEV 1 RECOG 0 NAME)) 8@dÃ–¿@ bBµdi bd²É@ABlH(31 \GETDEVICEFROMNAME 19 \ADD.CONNECTED.DIR 14 INTERLISP-NAMESTRING) (41 FDEV 6 PATHNAME) () \GENERIC.OUTFILEP :D8 (L (1 DEV 0 NAME)) QAÉ@gAlHH²#gHg µkkØgHgkg@(78 PACKFILENAME 60 PACKFILENAME 44 FILENAMEFIELD) (72 BODY 66 VERSION 54 BODY 39 VERSION 33 VERSION 16 OLD 5 FDEV) () \OPENFILE :D8 (L (3 PARAMETERS 2 RECOG 1 ACCESS 0 NAME)) ·`@dÃ²!¿@dAiš¿@AC@YÉ Š Y XÉ»IABCHlKZµ@l b°¯A ¿JAgð˜JÉ€j¿JAgð˜JÈ€jÍ¿JAC¿JÉ ]É¼MJlLJ(155 \DO.PARAMS.AT.OPEN 92 \SETACCESS 82 \LISPERROR 53 \GETDEVICEFROMNAME 47 \ADD.CONNECTED.DIR 31 \DO.PARAMS.AT.OPEN 21 \IOMODEP) (170 FDEV 162 STREAM 140 STREAM 132 APPEND 126 STREAM 113 STREAM 105 APPEND 99 STREAM 59 FDEV 39 STREAM 9 STREAM) () \DO.PARAMS.AT.OPEN :D8 (L (2 PARAMETERS 1 ACCESS 0 STREAM) F 4 STREAM-AFTER-OPEN-FNS) Î@g B1HµT±³Yd–ºIºi»Jdgð˜¿@g°ugð—@g°fJdgð™¿@K °Ygð³Jgð©Jdgð™¿@K °6gð˜@K °&Jgð¯Jgð§Jgðœ@gK¿HX±ÿZd@ABlHµðh(177 SETFILEINFO 139 CONVHANKAKU 123 \EXTERNALFORMAT 88 CHARSET 10 \EXTERNALFORMAT) (171 EOL 163 EOLC 155 EOLCONVENTION 147 EOL 130 CONVHANKAKU 113 :EXTERNAL-FORMAT 104 EXTERNALFORMAT 95 FORMAT 78 CHARSET 69 ENDOFSTREAMOP 61 ENDOFSTREAMOP 54 BUFFERS 45 BUFFERS 5 :DEFAULT) () \RENAMEFILE :D8 (L (1 NEWFILE 0 OLDFILE)) 6@ bA b@i Ai HdŸÉºH@IAlJ(29 \GETDEVICEFROMNAME 22 \GETDEVICEFROMNAME 13 \ADD.CONNECTED.DIR 5 \ADD.CONNECTED.DIR) (40 FDEV) () \REVALIDATEFILE :D8 (L (0 STREAM)) @É É@É@ gh@É @lHHµg@ð‘h@HÉ@HÉ@HÉ@HÉ@HÉ@HÈÍ@HÈÍHÉ@Éô’±ÿ|@HÉ@HÉ@HÈÍg(31 \GETACCESS) (254 CHANGED 245 STREAM 239 STREAM 229 STREAM 223 STREAM 213 STREAM 207 STREAM 194 STREAM 186 STREAM 176 STREAM 170 STREAM 160 STREAM 154 STREAM 144 STREAM 138 STREAM 128 STREAM 122 STREAM 112 STREAM 106 STREAM 96 STREAM 90 STREAM 80 STREAM 74 STREAM 62 DELETED 43 STREAM 36 OLD 23 STREAM 12 FDEV 5 STREAM) () \PAGED.REVALIDATEFILELST :D8 (L (0 DEVICE)) Ÿ@Éhd@lHAHµ@Éhd@lHY ZµHX°Üdgð˜¿I °Ggð²:I ¿Ig ‰d»IkK¿µõIh ¿@É ¼@IlL„¿JI ¿°œ(154 \PRINT-REVALIDATION-RESULT 146 SHOULDNT 124 \SETACCESS 103 STREAMPROP 91 FORGETPAGES 75 RESTOREMAP 52 \PAGED.REVALIDATEFILE) (131 FDEV 98 AFTERCLOSE 82 DELETED 66 CHANGED 32 FDEV 5 FDEV) () \PAGED.REVALIDATEFILES :D8 (L (0 LIST)) •@ 1@!LµH] ^µL\°îdgð˜¿M °Xgð²KM ¿Mg ‰d¹MkI¿µõMh ¿MÉ [É ºKMlJ¿MH X„¿NM ¿°‹(144 \PRINT-REVALIDATION-RESULT 136 SHOULDNT 129 DREMOVE 97 \SETACCESS 76 STREAMPROP 64 FORGETPAGES 48 RESTOREMAP 25 \PAGED.REVALIDATEFILE 5 COPY) (112 FDEV 104 STREAM 71 AFTERCLOSE 55 DELETED 39 CHANGED) () \PAGED.REVALIDATEFILE :D8 (L (0 STREAM)) @É É@É@ gh@É @lHHµg@ð‘h@HÉ@HÉ@HÉ@HÉ@HÉ@HÈÍ@HÈÍHÉ@Éô’±ÿ|@HÉ@HÉ@HÈÍg(31 \GETACCESS) (254 CHANGED 245 STREAM 239 STREAM 229 STREAM 223 STREAM 213 STREAM 207 STREAM 194 STREAM 186 STREAM 176 STREAM 170 STREAM 160 STREAM 154 STREAM 144 STREAM 138 STREAM 128 STREAM 122 STREAM 112 STREAM 106 STREAM 96 STREAM 90 STREAM 80 STREAM 74 STREAM 62 DELETED 43 STREAM 36 OLD 23 STREAM 12 FDEV 5 STREAM) () \BUFFERED.REVALIDATEFILE :D8 (L (0 STREAM)) @É É@É@ gh@É @lHHµg@ð‘h@HÉ@HÉ@HÉ@HÉ@HÉ@HÈÍ@HÈÍHÉ@Éô’±ÿ|@HÉ@HÉ@HÈÍg(31 \GETACCESS) (254 CHANGED 245 STREAM 239 STREAM 229 STREAM 223 STREAM 213 STREAM 207 STREAM 194 STREAM 186 STREAM 176 STREAM 170 STREAM 160 STREAM 154 STREAM 144 STREAM 138 STREAM 128 STREAM 122 STREAM 112 STREAM 106 STREAM 96 STREAM 90 STREAM 80 STREAM 74 STREAM 62 DELETED 43 STREAM 36 OLD 23 STREAM 12 FDEV 5 STREAM) () \BUFFERED.REVALIDATEFILELST :D8 (L (0 DEVICE)) ‘@Éhd@lHAHµ@Éhd@lHY ZµHX°Ügð¨Jgð²=Ig ‰d»IkK¿µõIh ¿@É ¼@IlL¿JI ¿°²¿°ª(140 SHOULDNT 132 \PRINT-REVALIDATION-RESULT 108 \SETACCESS 87 STREAMPROP 52 \BUFFERED.REVALIDATEFILE) (115 FDEV 82 AFTERCLOSE 73 CHANGED 65 DELETED 32 FDEV 5 FDEV) () \PRINT-REVALIDATION-RESULT :D8 (L (1 STREAM 0 RESULT)) µ` ²Ng ³=o` ¿` ¿o` ¿` ¿o` AÉµA` @dgð—¿o°gð•o„` ` (178 TERPRI 168 PRIN1 158 SHOULDNT 123 PRIN1 107 PRIN1 91 TERPRI 80 PRIN1 64 PRIN1 54 DRIBBLE 48 PRIN1 31 OPENP 21 DRIBBLEFILE 14 DRIBBLEFILE 9 FRESHLINE) (173 PROMPTWINDOW 163 PROMPTWINDOW 145 DELETED 130 CHANGED 118 PROMPTWINDOW 102 PROMPTWINDOW 86 PROMPTWINDOW 75 PROMPTWINDOW 59 PROMPTWINDOW 43 PROMPTWINDOW 26 APPEND 4 PROMPTWINDOW) ( 152 " was previously opened but has disappeared!" 138 " has been modified since you last accessed it!" 97 "**** WARNING: The file " 70 " ended" 38 "Dribble file ") \TRUNCATEFILE :D8 (L (2 LASTOFFSET 1 LASTPAGE 0 STREAM)) @É Éb@ABlHNIL (12 FDEV 5 STREAM) () \FILE-CONFLICT :D8 (L (2 DEVICE 1 ACCESS 0 NAME)) G@dÃ˜¿@É1BÉ¹HhBlIZd² »AdKð¡igð‘h@Jðhð(45 \GETACCESS) (58 INPUT 25 FDEV 14 STREAM 6 STREAM) () \GENERATENOFILES :D8 (L (3 OPTIONS 2 DESIREDPROPS 1 PATTERN 0 FDEV)) —gA oA H² AHkÙ l;ð²hgAHkØ³XI² AIkÙ l;ð²GgAIkØ³7ggH¨I¦g°ghgAb¿gAh(148 \NULLFILEGENERATOR 128 PACKFILENAME 88 STRPOS 69 NTHCHARCODE 55 STRPOS 36 NTHCHARCODE 21 STRPOS 10 STRPOS) (136 STAR 122 BODY 116 VERSION 109 NOSTAR 100 \NOFILESINFOFN 95 \NOFILESNEXTFILEFN 79 46 * 4 *) ( 15 (CONSTANT (CHARACTER (CHARCODE ESC)))) \NULLFILEGENERATOR :D8 NIL ghdNIL (4 NILL) () \NOFILESNEXTFILEFN :D8 (L (1 NAMEONLY 0 GENFILESTATE)) ¦0@Ydgð²¿@g¿@ X°wdgð‘hgð²1@g ¸@Hg @ g °3IkØZIñ³+gJg@ X²IHg ¿H´@HHJkÔ°Å(148 FILENAMEFIELD 133 INFILEP 128 PACKFILENAME.STRING 96 FILENAMEFIELD 86 INFILEP 78 FILENAMEFIELD 65 FULLNAME 31 INFILEP) (143 VERSION 120 BODY 114 VERSION 91 VERSION 73 VERSION 60 OLDEST 49 STAR 40 DONE 21 DONE 11 NOSTAR) () \NOFILESINFOFN :D8 (L (1 ATTRIBUTE 0 GENSTATE)) @A (8 GETFILEINFO) NIL () \FILE.NOT.OPEN :D8 (L (1 NOERROR 0 X)) "Ahð´@dÃ›¿@Éµ@l (31 \LISPERROR) (19 STREAM 11 STREAM) () \FILE.WONT.OPEN :D8 (L (0 X)) @dÃ›¿@Éµ@l (26 \LISPERROR) (14 STREAM 6 STREAM) () \ILLEGAL.DEVICEOP :D8 (L (0 N)) 1eoHk2JIó—K Ja½Lµ Mh\»JkÔZ°æM&¼°÷(24 ERROR) NIL ( 8 "Attempt to use undefined device operation") \IS.NOT.RANDACCESSP :D8 (L (0 N)) )ekaoIdÃ›¿IÉµI (38 ERROR) (28 STREAM 20 STREAM) ( 13 "File is not RANDACCESSP") \STREAM.NOT.OPEN :D8 (L (0 STREAM)) @Éµ@l (17 \LISPERROR) (5 STREAM) () \FDEVINSTANCEA0002 :D8 (L (0 STREAM)) @É ÉÉ@kHNIL (19 FDEV 12 FDEV 5 STREAM) () \FDEVINSTANCEA0004 :D8 (L (2 FDEV 1 ATTRIB 0 STREAM)) "BÉÉD@ABÉlHNIL (25 FDEV 12 FDEV 5 FDEV) () \FDEVINSTANCEA0006 :D8 (L (4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 CDNAME)) $DÉÉ@ABCDÉlHNIL (27 FDEV 12 FDEV 5 FDEV) () \FDEVINSTANCEA0008 :D8 (L (2 BUFFERLIST 1 FIRSTPAGE 0 STREAM)) "@É ÉÉ^@ABlHNIL (19 FDEV 12 FDEV 5 STREAM) () \FDEVINSTANCEA0010 :D8 (L (3 FDEV 2 VALUE 1 ATTRIBUTE 0 STREAM)) #CÉÉF@ABCÉlHNIL (26 FDEV 12 FDEV 5 FDEV) () \FDEVINSTANCEA0012 :D8 (L (2 LASTOFFSET 1 LASTPAGE 0 STREAM)) "@É ÉÉb@ABlHNIL (19 FDEV 12 FDEV 5 STREAM) () \FDEVINSTANCEA0014 :D8 (L (2 BUFFERLIST 1 FIRSTPAGE 0 STREAM)) "@É ÉÉ`@ABlHNIL (19 FDEV 12 FDEV 5 STREAM) () \FDEVINSTANCEA0016 :D8 (L (5 OLDSTREAM 4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 NAME)) %DÉÉ@ABCDÉElHNIL (27 FDEV 12 FDEV 5 FDEV) () \FDEVINSTANCEA0018 :D8 (L (0 STREAM)) @É ÉÉ,@kHNIL (19 FDEV 12 FDEV 5 STREAM) () \FDEVINSTANCEA0020 :D8 (L (1 BYTE 0 STREAM)) !@É ÉÉ.@AlHNIL (19 FDEV 12 FDEV 5 STREAM) () \FDEVINSTANCEA0022 :D8 (L (1 NOERRORFLG 0 STREAM)) !@É ÉÉ0@AlHNIL (19 FDEV 12 FDEV 5 STREAM) () \FDEVINSTANCEA0024 :D8 (L (0 STREAM)) @É ÉÉT@kHNIL (19 FDEV 12 FDEV 5 STREAM) () \FDEVINSTANCEA0026 :D8 (L (1 INDX 0 STREAM)) !@É ÉÉR@AlHNIL (19 FDEV 12 FDEV 5 STREAM) () \FDEVINSTANCEA0028 :D8 (L (0 STREAM)) @É ÉÉN@kHNIL (19 FDEV 12 FDEV 5 STREAM) () \FDEVINSTANCEA0030 :D8 (L (0 STREAM)) @É ÉÉP@kHNIL (19 FDEV 12 FDEV 5 STREAM) () \FDEVINSTANCEA0032 :D8 (L (0 STREAM)) @É ÉÉ<@kHNIL (19 FDEV 12 FDEV 5 STREAM) () \FDEVINSTANCEA0034 :D8 (L (3 NBYTES 2 OFFSET 1 BASE 0 STREAM)) #@É ÉÉ>@ABClHNIL (19 FDEV 12 FDEV 5 STREAM) () \FDEVINSTANCEA0036 :D8 (L (3 NBYTES 2 OFFSET 1 BASE 0 STREAM)) #@É ÉÉ@@ABClHNIL (19 FDEV 12 FDEV 5 STREAM) () \FDEVINSTANCEA0038 :D8 (L (0 STREAM)) @É ÉÉB@kHNIL (19 FDEV 12 FDEV 5 STREAM) () \FDEVINSTANCE :D8 (L (0 FDEV)) ½`@ d@¿dg¿dgD¿dg¿dg^¿dgF¿dgb¿dg`¿dg¿dg,¿dg.¿dg0¿dgT¿dgR¿dgN¿dgP¿dg<¿dg>¿dg@¿dgB¿(10 NCREATE2) (183 \FDEVINSTANCEA0038 174 \FDEVINSTANCEA0036 165 \FDEVINSTANCEA0034 156 \FDEVINSTANCEA0032 147 \FDEVINSTANCEA0030 138 \FDEVINSTANCEA0028 129 \FDEVINSTANCEA0026 120 \FDEVINSTANCEA0024 111 \FDEVINSTANCEA0022 102 \FDEVINSTANCEA0020 93 \FDEVINSTANCEA0018 84 \FDEVINSTANCEA0016 75 \FDEVINSTANCEA0014 66 \FDEVINSTANCEA0012 57 \FDEVINSTANCEA0010 48 \FDEVINSTANCEA0008 39 \FDEVINSTANCEA0006 30 \FDEVINSTANCEA0004 21 \FDEVINSTANCEA0002 4 |FDEVTYPE#|) () CNDIR :D8 (L (0 HOST/DIR) F 2 *DEFAULT-PATHNAME-DEFAULTS*) s@ddÃ–¿@ igµ o@ R IH ¿IH ¿IH ¿Ic`(101 CL:PATHNAME-DIRECTORY 86 CL:PATHNAME-DEVICE 71 CL:PATHNAME-HOST 56 COPY-PATHNAME 50 PATHNAME 40 ERROR 27 DIRECTORYNAME 16 INTERLISP-NAMESTRING) (112 \CONNECTED.DIRECTORY 95 PATHNAME 80 PATHNAME 65 PATHNAME 45 \CONNECTED.DIRECTORY 22 ASK 8 PATHNAME) ( 34 "Non-existent directory") DIRECTORYNAME :D8 (L (2 CREATE? 1 STRPTR 0 DIRNAME)) @Ã˜@ b¿@@dið˜¿`±Ý³`µ‚±Ðg±È@g º@k l>ðš@l b¿Jµj@k dl<ð¤dl/ð¿g@g°5¿@d dl>ð¤dl/ðŸ¿g@kmþ†¿g@g`bg Yd²;É»@IBlKXd²(ið²gIÉg@¸Aµ H ið²÷H (271 MKATOM 260 MKSTRING 250 PACKFILENAME.STRING 199 \GETDEVICEFROMHOSTNAME 194 FILENAMEFIELD 182 PACKFILENAME.STRING 159 SUBSTRING 134 NTHCHARCODE 129 NCHARS 97 NTHCHARCODE 84 SUBSTRING 72 NTHCHARCODE 64 FILENAMEFIELD 12 CL:NAMESTRING) (244 DIRECTORY 237 FDEV 231 HOST 208 FDEV 189 HOST 177 \CONNECTED.DIRECTORY 172 DIRECTORY 166 SUBDIRECTORY 150 SUBDIRECTORY 119 BODY 113 DIRECTORY 59 HOST 50 {DSK} 39 LOGINHOST/DIR 29 \CONNECTED.DIRECTORY 5 PATHNAME) () DIRECTORYNAMEP :D8 (L (1 HOSTNAME 0 DIRNAME)) EAœg@gAg@g`!Hi Yd²ÉºHIlJ´i(45 \GETDEVICEFROMNAME 35 PACKFILENAME.STRING) (54 FDEV 30 \CONNECTED.DIRECTORY 25 DIRECTORY 19 DIRECTORY 12 HOST 6 DIRECTORY) () HOSTNAMEP :D8 (L (0 NAME)) €@@dd3@ð˜¿@ ° ´M@ Xd l{ð²¿HlgHld²"kÙX` «`Zµh´i[É¹HkI•K³îi°éJ°à(86 MEMB 75 SUBATOM 65 STRPOS 43 CHCON1 36 MKATOM 31 U-CASE 23 STRINGP 16 U-CASE) (108 FDEV 92 \FILEDEVICES 81 \FILEDEVICENAMES 57 }) () \ADD.CONNECTED.DIR :D8 (L (0 FILENAME)) 8@dd3@ð«¿@d ²'¿@dg ³¿g@g`(53 PACKFILENAME.STRING 29 UNPACKFILENAME.STRING 14 STRINGP) (48 \CONNECTED.DIRECTORY 43 DIRECTORY 37 BODY 24 HOST) () \BACKFILEPTR :D8 (L (0 STREAM)) @É ÉT@kHNIL (12 FDEV 5 STREAM) () \BACKPEEKBIN :D8 (L (0 STREAM) P 0 \INTERRUPTABLE) @ ´@ (8 \BACKFILEPTR) NIL () \BACKBIN :D8 (L (0 STREAM)) @ ´@ (13 \PEEKBIN 5 \BACKFILEPTR) NIL () BIN :D8 (L (0 STREAM)) @ NIL NIL () \BIN :D8 (L (0 STREAM)) @bÉ$@kHNIL (12 STREAM 5 STREAM) () \BINS :D8 (L (3 NBYTES 2 OFF 1 BASE 0 STREAM)) @bÉ É>@ABClHNIL (14 FDEV 5 STREAM) () BOUT :D8 (L (1 BYTE 0 STREAM)) A3µ @A nÿÿó²ôA ¿°ë(24 \ILLEGAL.ARG 11 \BOUT) NIL () \BOUT :D8 (L (1 BYTE 0 STREAM)) /A3µ@bdÉ&@AlHnÿÿó²âA ¿°Ù(42 \ILLEGAL.ARG) (18 STREAM 10 STREAM) () \BOUTS :D8 (L (3 NBYTES 2 OFF 1 BASE 0 STREAM)) @bÉ É@@ABClHNIL (14 FDEV 5 STREAM) () COPYBYTES :D8 (L (3 END 2 START 1 DSTFIL 0 SRCFIL)) "@g Ag 2C²hBCô‘hHBd3 Ÿ¿jBñ©Bdoñ¡…B ¿Cdmÿð² ¿Hd ˜¿H °%g °3 jCñ©Cdoñ¡…C BÙ€BZdŸjJñ›oJ ¿HÉ ÊpjðªHIJ¿°NJµMHÉ Êjð³H HÉ ÉN»HkKÙ€hµHÉ É<¼HkL²idjñœIH ¿kÙ°ñ¿°ìIH ¿°Ë(285 \BOUT 269 \BOUT 208 \GETEOFPTR 176 \BUFFERED.COPYBYTES 148 ERROR 126 \ILLEGAL.ARG 101 GETFILEINFO 89 \GETEOFPTR 81 RANDACCESSP 65 \SETFILEPTR 60 \ILLEGAL.ARG 21 \GETSTREAM 10 \GETSTREAM) (246 FDEV 239 STREAM 221 FDEV 214 STREAM 195 FDEV 188 STREAM 162 FDEV 155 STREAM 96 LENGTH 16 OUTPUT 5 INPUT) ( 142 "Negative number of bytes to copy" 117 1073741823 51 1073741823) COPYCHARS :D8 (L (3 END 2 START 1 DSTFIL 0 SRCFIL) P 12 CNT) y @ A j“HÊ^IÊð²!HÉ>IÉ>ðœHIBC¿±ôHÉ Êjðhð[–H ½C²dK³oHÉ ¿BjØZ_3 jOñ¨Ooñ˜Bl ¿HJ ¿Cdmÿð³md3 ²¿jCñªCdoñ¢°ZC °RB²2K²,HÉ ÉN_¿HkOºMBJØ_¿dOñ²'¿O°"B°K²KHÉ ÉN_¿HkOZ¿M¼JLñoLJÙ ¿LJÙOjñ³-iIHN ¿HÉ É<_¿HkO²Û°×IHhgO ¿°º(372 \OUTCHAR 367 \INCCODE.EOLC 324 \OUTCHAR 319 \INCCODE.EOLC 296 ERROR 196 \ILLEGAL.ARG 161 \SETFILEPTR 153 \LISPERROR 121 ERROR 96 \GETEOFPTR 64 COPYBYTES 11 \GETSTREAM 5 \GETSTREAM) (360 CNT 338 FDEV 331 STREAM 265 FDEV 258 STREAM 217 FDEV 210 STREAM 114 STREAM 81 FDEV 74 STREAM 51 STREAM 43 STREAM 31 STREAM 21 STREAM) ( 288 "Negative number of bytes to copy" 186 1073741823 143 1073741823 108 "COPYCHARS: Source file is not random access") COPYFILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 FROMFILE F 1 SI::*RESETFORMS* F 2 SOURCEPARAMETERS F 3 DESTPARAMETERS F 4 TOFILE) 5oPggooRchQcPTS(50 \COPYOPENFILE 33 OPENSTREAM) (15 OLD 10 INPUT) ( 25 (DON'TCACHE T) 20 (SEQUENTIAL T) 4 (PROGN (CLOSEF OLDVALUE))) COPYFILE :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 SOURCEPARAMETERS I 2 DESTPARAMETERS I 1 TOFILE I 0 FROMFILE F 3 LISPXHIST) lghgAAg ²-gAgghghg@ b¿S!g ¿$(101 SI::RESETUNWIND 96 \MVLIST 91 COPYFILEA0001 74 PACKFILENAME 69 PACKFILENAME 32 DIRECTORYNAMEP 27 UNPACKFILENAME 16 PACKFILENAME) (86 SI::RESETUNWIND 62 BODY 56 DIRECTORY 50 HOST 45 BODY 39 DIRECTORY 22 HOST 10 BODY 4 HOST) () \COPYOPENFILE :D8 (L (2 DESTPARAMETERS 1 NEWNAME 0 INSTREAM) F 4 SI::*RESETFORMS* F 5 FileTypeConfirmFlg) ùB1gB³@g Z›gJhH¸gBYµ-@g Y—Igð˜@ Y´gIhH¸Igð³@g Z›gJhH¸oAggooH[hTcIgð©@dÉ>KÉ>ð¨¿@K …K ¿`lð² U²g ŸgB§@K ¿K (246 CLOSEF 239 \UFStoOtherCopyMess 223 STKPOS 199 COPYBYTES 192 COPYCHARS 159 OPENSTREAM 111 GETFILEINFO 76 \INFER.FILE.TYPE 60 GETFILEINFO 23 GETFILEINFO) (229 TYPE 218 COPYFILE 205 \MACHINETYPE 173 TEXT 141 NEW 136 OUTPUT 118 LENGTH 106 LENGTH 97 TEXT 84 TYPE 68 ? 55 TYPE 42 TYPE 30 CREATIONDATE 18 CREATIONDATE 8 CREATIONDATE) ( 151 (DON'TCACHE T) 146 (SEQUENTIAL T) 130 (AND RESETSTATE (SETQ OLDVALUE (CLOSEF OLDVALUE)) (DELFILE OLDVALUE))) \INFER.FILE.TYPE :D8 (L (0 STREAM)) O@ ´G@j @É*@g*@ µg‰lñ²ógY@H*@j I(75 SETFILEPTR 14 SETFILEPTR 5 RANDACCESSP) (65 STREAM 58 BINARY 47 TEXT 36 NILL 31 STREAM 20 STREAM) () EOFP :D8 (L (0 FILE)) -@giµ@ HÉ É<¹HkI(19 \GETSTREAM 11 \GETSTREAM) (35 FDEV 28 STREAM 5 INPUT) () FORCEOUTPUT :D8 (L (1 WAITFORFINISH 0 STREAM)) '@g bdÉ ÉB@AlH(10 \GETSTREAM) (25 FDEV 18 STREAM 5 OUTPUT) () \FLUSH.OPEN.STREAMS :D8 (L (0 FDEV)) H@Éhd@lH!HµhYdÊlåjð³É ÉBºIkJ¿HX°ÒNIL (57 FDEV 50 STREAM 35 STREAM 5 FDEV) () CHARSET :D8 (L (1 NEWVALUE 0 STREAM)) z@ bAdlÿð•¿ib¿µN@É ÉH@Adið’¿lÿlHHlÿð‘i¸A²HdAð³¿@É.ÉH¹@AlIHið³²jAó¥lÿAó³¨A ¿°Ÿ(117 \ILLEGAL.ARG 5 \GETSTREAM) (86 IMAGEOPS 79 STREAM 34 FDEV 27 STREAM) () ACCESS-CHARSET :D8 (L (1 NEWVALUE 0 STREAM)) @É ÉH@AlHNIL NIL () GETEOFPTR :D8 (L (0 FILE)) @ HÉ ÉP¹HkI(5 \GETSTREAM) (21 FDEV 14 STREAM) () GETFILEINFO :D8 (L (1 ATTRIB 0 FILE)) €@dÃ¢±n¿Agð–@ @É YÉDº@AIlJµ‚±Ç@Êjð’±Agð©Adgðš¿@Êgð²:@Êdjð•gdkð•gdlð•glð•gAdgð™¿@È4gð–@ Adgð™¿@É*gð²@ ´‚±@ Adgð²3¿IÉD»@gIlKµ@ ´@ d¢±ÙnÿØãâgð¬Agð´‚±¾@ Agð´‚±ªIÉD¼@gIlLd¢±‘nÿØãâÃ–@ €@ X Yµ@l É½HgIlMX²ãAgð§Agð‘hIÉD¾HAIlNµ*Agð´!IÉD_¿HgIlOd•nÿØãâ(412 \LISPERROR 401 \GETDEVICEFROMNAME 395 \ADD.CONNECTED.DIR 388 INTERLISP-NAMESTRING 330 \EXTERNALFORMAT 292 \GETEOFPTR 284 RANDACCESSP 244 \GETEOFPTR 232 RANDACCESSP 198 CHARSET 165 SHOULDNT 28 \GETACCESS) (497 LENGTH 486 FDEV 477 SIZE 459 FDEV 449 OPENBYTESIZE 441 ACCESS 427 OLD 418 FDEV 381 PATHNAME 359 LENGTH 350 FDEV 337 SIZE 317 EXTERNALFORMAT 309 FORMAT 271 LENGTH 262 FDEV 252 SIZE 223 LENGTH 215 STREAM 206 ENDOFSTREAMOP 190 CHARSET 182 STREAM 173 BUFFERS 159 ANY 149 CRLF 138 LF 128 CR 116 STREAM 107 EOL 98 STREAM 89 OPENBYTESIZE 80 BYTESIZE 65 STREAM 43 FDEV 35 STREAM 20 ACCESS 9 STREAM) () \TYPE.FROM.FILETYPE :D8 (L (0 FILETYPE)) )@´`Hµ hµ@Y@ð•Iµòi°ïHX°æNIL (7 FILING.TYPES) () \FILETYPE.FROM.TYPE :D8 (L (0 TYPE)) @`µ@3 NIL (5 FILING.TYPES) () GETFILEPTR :D8 (L (0 FILE)) @ HÉ ÉN¹HkI(5 \GETSTREAM) (21 FDEV 14 STREAM) () SETFILEINFO :D8 (L (2 VALUE 1 ATTRIB 0 FILE)) Âp@dÃ¢±¿Agð³Agð¨Adgð‘hgð²A@Bdgð“¿j°)gð“l°Bdgð’¿kgð’l…B ÏBAgð©Adgð™¿@B Bgðš@B*BAdgð²¿@BjØºkJñ¡J€k[Í4Kgð—@B @É YÉF¼@ABIlLµdAdgð²$¿@Bd3 Ÿ¿jBñ©Bdoñ¡…B gð´@Báà Ã–@ €@ X Yµ@l É½HgIlMX²ãAgð’±þ¾Agð’±þ³Agð’±þ¨IÉF¾HABIlNµ·Agð´®HBd3 Ÿ¿jBñ©Bdoñ¡…B (447 \SETCLOSEDFILELENGTH 442 \ILLEGAL.ARG 331 \LISPERROR 320 \GETDEVICEFROMNAME 314 \ADD.CONNECTED.DIR 307 INTERLISP-NAMESTRING 294 \SETEOFPTR 276 \SETEOFPTR 271 \ILLEGAL.ARG 205 CHARSET 138 \EXTERNALFORMAT 108 \ILLEGAL.ARG) (412 LENGTH 393 FDEV 382 EOLCONVENTION 371 OPENBYTESIZE 360 ACCESS 346 OLD 337 FDEV 300 PATHNAME 282 SIZE 240 LENGTH 220 FDEV 212 STREAM 196 CHARSET 175 STREAM 165 BUFFERS 153 STREAM 145 ENDOFSTREAMOP 128 EXTERNALFORMAT 119 FORMAT 97 ANY 87 LF 74 CRLF 63 CR 56 STREAM 47 EOL 38 OPENBYTESIZE 29 BYTESIZE 20 ACCESS 9 STREAM) ( 433 1073741823 262 1073741823) SETFILEPTR :D8 (L (1 ADR 0 FILE)) K@ HÉ ÉR¹HAdmÿð˜¿d °d3 Ÿ¿jAñ©Adoñ¡‡Al lI¿HjÍA(62 \LISPERROR 33 \GETEOFPTR 5 \GETSTREAM) (16 FDEV) ( 51 1073741823) BOUT16 :D8 (L (1 N 0 STREAM)) @Aã @Alÿå A(17 BOUT 7 BOUT) NIL () BIN16 :D8 (L (0 STREAM)) @ á@ äNIL NIL () \GENERIC.BINS :D8 (L (3 NBYTES 2 OFF 1 BASE 0 STREAM)) CHjñ²AB@ Ç¿BkÔb¹HkÙX°ìINIL NIL () \GENERIC.BOUTS :D8 (L (3 NBYTES 2 OFF 1 BASE 0 STREAM)) "CHjñ²@ABÂ ¿BkÔb¹HkÙX°èI(17 \BOUT) NIL () \GENERIC.RENAMEFILEA0001A0002 :D8 (F 0 XCL:*CURRENT-CONDITION*) PÃNIL (5 XCL::FS-RENAMEFILE-SOURCE-COULDNT-DELETE) () \GENERIC.RENAMEFILEA0001A0003 :D8 (F 0 XCL:*CURRENT-CONDITION*) PÃNIL (5 XCL::FS-RENAMEFILE-SOURCE-COULDNT-DELETE) () \GENERIC.RENAMEFILEA0001A0004 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 OLDFILE F 3 A0312) #i@ggR cg(25 \MVLIST 20 CL:ERROR) (32 :NORMAL 14 :PATHNAME 9 XCL::FS-RENAMEFILE-SOURCE-COULDNT-DELETE) () \GENERIC.RENAMEFILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 1 *PROCEED-CASES* P 0 A0312 I 0 SI::*CLEANUP-FORMS* F 2 OLDFILE F 3 NEWFILE F 4 SI::*RESETFORMS* F 5 *PROCEED-CASES*) ÖoRggochTcRS c´‚±¥R ’±•gggjgggogh gggkgggogh hUI dgð•¿H$djð˜¿S hkð´S(204 DELFILE 177 \GENERIC.RENAMEFILEA0001A0004 163 CONDITIONS::MAKE-RESTART 115 CONDITIONS::MAKE-RESTART 60 \DELETEFILE 55 CLOSEF 41 \COPYOPENFILE 25 OPENSTREAM) (184 :NORMAL 156 :INTERACTIVE-FN 146 :REPORT 141 \GENERIC.RENAMEFILEA0001A0003 136 :TEST 130 :SELECTOR 125 DONT-DELETE-DESTINATION 120 :NAME 108 :INTERACTIVE-FN 98 :REPORT 93 \GENERIC.RENAMEFILEA0001A0002 88 :TEST 82 :SELECTOR 77 DELETE-DESTINATION 72 :NAME 15 OLD 10 INPUT) ( 151 "Don't delete the destination file. Just returns the destination filename." 103 "Delete the destination file too." 20 ((SEQUENTIAL T) DON'TCACHE) 4 (AND RESETSTATE (CLOSEF? OLDVALUE))) \GENERIC.RENAMEFILE :D8 (L (2 NEWDEVICE 0 OLDDEVICE) P 3 RESETSTATE P 2 SI::*RESETFORMS* P 1 LISPXHIST I 3 NEWFILE I 1 OLDFILE F 4 LISPXHIST) :@ÉA h@lH³T!g ¿$h(49 SI::RESETUNWIND 44 \MVLIST 39 \GENERIC.RENAMEFILEA0001 16 FULLNAME) (34 SI::RESETUNWIND 5 FDEV) () \GENERIC.OPENP :D8 (L (2 DEVICE 1 ACCESS 0 FILENAME)) @²MBÉd²RAHµI¼@LÉµL ²AšLdAi¡‰L»Jµ KhZY¿HX°ËK&Z°÷BÉAHµI¼A™LAi²LdÊjð¨»Jµ KhZY¿HX°ÓK&Z°÷(106 \IOMODEP 54 \IOMODEP 41 CL::SIMPLE-STRING-EQUAL) (115 STREAM 83 FDEV 31 STREAM 8 FDEV) () \GENERIC.READP :D8 (L (1 FLG 0 STRM) P 2 \INTERRUPTABLE F 4 \PRIMTERMSA) }@É É<@kH¬AµbT@i µhIlÿñ²HÉ€ŸIHÉ€ µj‚HIÂkðhðµ( @ @É É<»@kKhð@ ¿(121 \BACKCCODE.EOLC 93 \INCCODE.EOLC 70 GETHASH 34 \PEEKCCODE.EOLC) (106 FDEV 99 STREAM 63 CHARTABLE 53 CHARTABLE 12 FDEV 5 STREAM) () \GENERIC.CHARSET :D8 (L (1 NEWVALUE 0 STREAM)) @Ê‡A•@AÏ‡¿NIL (5 STREAM) () \MAP-OPEN-STREAMS :D8 (L (2 ACCESS 1 DEVICES 0 FN)) OA1HµIZÉ²6I0JÉ»hBJlK°dk@¼MµLh^L&½µìN ¹HX°¹(71 \NCONC2) (30 FDEV 16 FDEV) () \EOF.ACTION :D8 (L (0 STREAM)) @É*@kHNIL (5 STREAM) () \EOSERROR :D8 (L (0 STREAM)) @Éµ@l (17 \LISPERROR) (5 STREAM) () \GETEOFPTR :D8 (L (0 STREAM)) @É ÉP@kHNIL (12 FDEV 5 STREAM) () \INCFILEPTR :D8 (L (1 AMOUNT 0 STREAM)) >@dÉ Ê0jð²#¿@dÉ ÉN@kHAØ A (59 \PAGED.INCFILEPTR 52 \SETFILEPTR) (35 FDEV 28 STREAM 13 FDEV 6 STREAM) () \PEEKBIN :D8 (L (1 NOERRORFLG 0 STREAM)) @É É0@AlHNIL (12 FDEV 5 STREAM) () \SETCLOSEDFILELENGTH :D8 (L (1 NBYTES 0 FILENAME)) #@ggHA H i(31 \CLOSEFILE 25 \SETEOFPTR 15 \OPENFILE) (10 OLD 5 BOTH) () \SETEOFPTR :D8 (L (1 LEN 0 STREAM)) @É ÉV@AlHNIL (12 FDEV 5 STREAM) () \SETFILEPTR :D8 (L (1 INDX 0 STREAM)) @É ÉR@AlHNIL (12 FDEV 5 STREAM) () \FIXPOUT :D8 (L (1 N 0 STRM)) 3@Amèçlÿå @Amðçlÿå @Amøçlÿå @Alÿå (48 \BOUT 38 \BOUT 25 \BOUT 12 \BOUT) NIL () \FIXPIN :D8 (L (0 STRM)) @ á@ Øáá@ á@ ØäNIL NIL () \BOUTEOL :D8 (L (0 STREAM)) I@Êdkð™¿@l djð™¿@l dlð²¿@l @l lð´(70 SHOULDNT 59 \BOUT 51 \BOUT 35 \BOUT 21 \BOUT) (5 STREAM) () \BUFFERED.BIN :D8 (L (0 STREAM)) W @Éµ°@ÈXd@Èýñ³%¿¿@É ÉZ¹@glIdiðŸ¿°½@HkØÍ¿ÂNIL (77 STREAM 60 READ 51 FDEV 44 STREAM 30 STREAM 20 STREAM 8 STREAM) () \BUFFERED.PEEKBIN :D8 (L (1 NOERRORFLG 0 STREAM)) K@Éµ°@Èd@Èýñ³)¿¿@É ÉZ@gAlHdið“¿°ºÂNIL (58 READ 47 FDEV 40 STREAM 26 STREAM 17 STREAM 5 STREAM) () \BUFFERED.BOUT :D8 (L (1 BYTE 0 STREAM)) ` @Éµ°5@ÈXd@Èýñ²@HkØÍ¿AÇ¿@kÏ 0k¿¿@É ÉZ¹@glI¿°¦NIL (87 WRITE 78 FDEV 71 STREAM 57 STREAM 42 STREAM 30 STREAM 20 STREAM 8 STREAM) () \BUFFERED.BINS :D8 (L (4 NOERRORFLG 3 NBYTES 2 OFFSET 1 DBASE 0 STREAM)) ’Ca@É[²E@È¼@ÈZLÙYHñ”LHYØºKLABI ¿@JÍ¿IHð‘CBIÔb¿HIÙ¸@É ÉZ¾@gDlN]µCHÙið³ŽABMÇ¿BkÔb¿HmÿÔXjð³¼@ ½°é(54 \MOVEBYTES) (103 READ 94 FDEV 87 STREAM 61 STREAM 29 STREAM 20 STREAM 9 STREAM) () \BUFFERED.BOUTS :D8 (L (3 NBYTES 2 OFFSET 1 SBASE 0 STREAM)) {@É Q@É[²P@È¼@ÈZLÙYCñ”LCYØºABKLI ¿@JÍ¿@kÏ 0¿CIÙbjñ¡hBIÔb¿HÉZ½@glM¿°“(61 \MOVEBYTES) (114 WRITE 105 FDEV 78 STREAM 68 STREAM 36 STREAM 27 STREAM 16 STREAM 5 STREAM) () \BUFFERED.COPYBYTES :D8 (L (2 NBYTES 1 DST 0 SRC)) …Bhð@É b@ÉZ²Q@È]@È\Ù»B˜KBñ”LB[Ø½AÉ É@¾AJLKlN¿@MÍ¿BšKBð³"BKÙb¿IÉZ_¿@dgHlO³hNIL (121 READ 109 FDEV 86 STREAM 68 FDEV 61 STREAM 39 STREAM 30 STREAM 19 STREAM 8 STREAM) () (PRETTYCOMPRINT FILEIOCOMS) (RPAQQ FILEIOCOMS ((PROP (FILETYPE MAKEFILE-ENVIRONMENT) FILEIO) (* ;; "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 TestMasked APPENDABLE APPENDONLY DIRTYABLE OPENED OVERWRITEABLE READABLE READONLY WRITEABLE) (CONSTANTS * EOLCONVENTIONS))) (FNS STREAMPROP GETSTREAMPROP PUTSTREAMPROP STREAMP) (COMS (* ; "make streams print pretty") (FNS \DEFPRINT.BY.NAME \STREAM.DEFPRINT \FDEV.DEFPRINT) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (DEFPRINT (QUOTE STREAM) (FUNCTION \STREAM.DEFPRINT)) (DEFPRINT (QUOTE FDEV) (FUNCTION \FDEV.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) (INITVARS ( STREAM-AFTER-OPEN-FNS NIL)) (FNS \CLOSEFILE \DELETEFILE \DEVICEEVENT \GENERATEFILES \GENERATENEXTFILE \GENERATEFILEINFO \GETFILENAME \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 ACCESS-CHARSET GETEOFPTR GETFILEINFO \TYPE.FROM.FILETYPE \FILETYPE.FROM.TYPE GETFILEPTR SETFILEINFO SETFILEPTR BOUT16 BIN16) (PROP (DOPCODE ) BOUT) (* ; "Generic functions") (FNS \GENERIC.BINS \GENERIC.BOUTS \GENERIC.RENAMEFILE \GENERIC.OPENP \GENERIC.READP \GENERIC.CHARSET) (FNS \MAP-OPEN-STREAMS) (INITVARS (FILING.TYPES (QUOTE ((BINARY 0) ( DIRECTORY 1) (TEXT 2) (SERIALIZED 3) (INTERPRESS 4361) (TEDIT 6056) (FASL 6057) (LAFITE 6058))))) ( GLOBALVARS FILING.TYPES) (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (MACROS \DEVICE-OPEN-STREAMS \CONVERT-PATHNAME) (OPTIMIZERS ACCESS-CHARSET))) (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) (FNS \BOUTEOL) (DECLARE%: DONTCOPY (EXPORT (MACROS \DECFILEPTR \GETFILEPTR \SIGNEDWIN \SIGNEDWOUT \WIN \WOUT \BINS \BOUTS \EOFP SIZE.FROM.LENGTH) ( CONSTANTS BitsPerByte (ByteOffsetSize (SELECTQ (SYSTEMTYPE) (VAX 10) 9)) WordsPerPage) (CONSTANTS ( \MAXFILEPTR (SUB1 (LLSH 1 30)))) (RECORDS BYTEPTR)) (CONSTANTS MaxChar))) (COMS (* ; "Buffered IO") ( FNS \BUFFERED.BIN \BUFFERED.PEEKBIN \BUFFERED.BOUT \BUFFERED.BINS \BUFFERED.BOUTS \BUFFERED.COPYBYTES) ) (LOCALVARS . T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) ( NLAML) (LAMA \IS.NOT.RANDACCESSP \ILLEGAL.DEVICEOP STREAMPROP))))) (PUTPROPS FILEIO FILETYPE :BCOMPL) (PUTPROPS FILEIO MAKEFILE-ENVIRONMENT (:PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)) (ADDTOVAR SYSTEMRECLST (DATATYPE STREAM ((COFFSET WORD) (CBUFSIZE WORD) (PEEKEDCHARP FLAG) (ACCESSBITS BITS 3) (CBUFPTR POINTER) (BYTESIZE BYTE) (CHARSET BYTE) (PEEKEDCHAR WORD) (CHARPOSITION WORD) ( CBUFMAXSIZE WORD) (NONDEFAULTDATEFLG FLAG) (REVALIDATEFLG FLAG) (MULTIBUFFERHINT FLAG) (USERCLOSEABLE FLAG) (FULLFILENAME POINTER) (BINABLE FLAG) (BOUTABLE FLAG) (EXTENDABLE FLAG) (CBUFDIRTY FLAG) (DEVICE POINTER) (USERVISIBLE FLAG) (EOLCONVENTION BITS 2) (READONLY-EXTERNALFORMAT FLAG) (VALIDATION POINTER ) (CPAGE POINTER) (EPAGE POINTER) (EOFFSET WORD) (LINELENGTH WORD) (F1 POINTER) (F2 POINTER) (F3 POINTER) (F4 POINTER) (F5 POINTER) (FW6 WORD) (FW7 WORD) (FW8 WORD) (FW9 WORD) (F10 POINTER) ( STRMBINFN POINTER) (STRMBOUTFN POINTER) (OUTCHARFN POINTER) (ENDOFSTREAMOP POINTER) (OTHERPROPS POINTER) (IMAGEOPS POINTER) (IMAGEDATA POINTER) (BUFFS POINTER) (MAXBUFFERS WORD) (LASTCCODE WORD) ( EXTRASTREAMOP POINTER) (INCCODEFN POINTER) (PEEKCCODEFN POINTER) (BACKCCODEFN POINTER) (EXTERNALFORMAT POINTER)))) (DEFPRINT (QUOTE STREAM) (FUNCTION \STREAM.DEFPRINT)) (DEFPRINT (QUOTE FDEV) (FUNCTION \FDEV.DEFPRINT)) (RPAQ? FILELINELENGTH 102) (RPAQ? \STREAM.DEFAULT.MAXBUFFERS 3) (/DECLAREDATATYPE (QUOTE FDEV) (QUOTE (FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER 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 POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((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 POINTER) (FDEV 2 (FLAGBITS . 0)) (FDEV 2 (FLAGBITS . 16)) ( FDEV 2 (FLAGBITS . 32)) (FDEV 2 (FLAGBITS . 48)) (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) (FDEV 84 POINTER) (FDEV 86 POINTER) (FDEV 88 POINTER) (FDEV 90 POINTER) (FDEV 92 POINTER) (FDEV 94 POINTER) (FDEV 96 POINTER) ( FDEV 98 POINTER) (FDEV 100 POINTER) (FDEV 102 POINTER) (FDEV 104 POINTER))) (QUOTE 106)) (ADDTOVAR SYSTEMRECLST (DATATYPE FDEV ((RESETABLE FLAG) (RANDOMACCESSP FLAG) (NODIRECTORIES FLAG) ( PAGEMAPPED FLAG) (FDBINABLE FLAG) (FDBOUTABLE FLAG) (FDEXTENDABLE FLAG) (BUFFERED FLAG) (DEVICENAME POINTER) (REMOTEP FLAG) (SUBDIRECTORIES FLAG) (INPUT-INDIRECTED FLAG) (OUTPUT-INDIRECTED FLAG) ( DEVICEINFO POINTER) (OPENFILELST POINTER) (HOSTNAMEP POINTER) (EVENTFN POINTER) (DIRECTORYNAMEP POINTER) (OPENFILE POINTER) (CLOSEFILE POINTER) (REOPENFILE POINTER) (GETFILENAME POINTER) (DELETEFILE POINTER) (GENERATEFILES POINTER) (RENAMEFILE POINTER) (OPENP POINTER) (REGISTERFILE POINTER) ( UNREGISTERFILE POINTER) (FREEPAGECOUNT POINTER) (MAKEDIRECTORY POINTER) (CHECKFILENAME POINTER) ( HOSTALIVEP POINTER) (BREAKCONNECTION POINTER) (BIN POINTER) (BOUT POINTER) (PEEKBIN POINTER) (FDEV1 POINTER) (FDEV2 POINTER) (FDEV3 POINTER) (FDEV4 POINTER) (READP POINTER) (EOFP POINTER) (BLOCKIN POINTER) (BLOCKOUT POINTER) (FORCEOUTPUT POINTER) (GETFILEINFO POINTER) (SETFILEINFO POINTER) ( CHARSETFN POINTER) (INPUTSTREAM POINTER) (OUTPUTSTREAM POINTER) (GETFILEPTR POINTER) (GETEOFPTR POINTER) (SETFILEPTR POINTER) (BACKFILEPTR POINTER) (SETEOFPTR POINTER) (LASTC POINTER) (GETNEXTBUFFER POINTER) (RELEASEBUFFER POINTER) (READPAGES POINTER) (WRITEPAGES POINTER) (TRUNCATEFILE POINTER) ( WINDOWOPS POINTER) (WINDOWDATA POINTER) (DEFAULTEXTERNALFORMAT POINTER)))) (RPAQ? STREAM-AFTER-OPEN-FNS NIL) (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})) (PUTPROPS BOUT DOPCODE (33 BOUT 0 T -1 \BOUT (4K DORADO))) (RPAQ? FILING.TYPES (QUOTE ((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)))) (PUTPROPS FILEIO COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1999 2020 2021 2022)) NIL