(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 4-Nov-93 16:56:19" ("compiled on " {DSK}export>lispcore>sources>CLTL2>FILEIO.;1) "19-Feb-93 17:03:08" bcompl'd in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "12-Oct-93 17:36:33" "{Pele:mv:envos}Sources>CLTL2>FILEIO.;1" 133165 changes to%: (FNS \DO.PARAMS.AT.OPEN COPYFILE) (VARS FILEIOCOMS) (RECORDS STREAM FDEV EXTERNALFORMAT) previous date%: " 3-Sep-91 15:30:45" {DSK}usr>users>sybalsky>cltl2>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)) (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))) (QUOTE 56)) STREAMPROP :D8 (L (0 X)) 0eHdlñž¿kalalalð´ kala (45 \ILLEGAL.ARG 39 GETSTREAMPROP 23 PUTSTREAMPROP) NIL () GETSTREAMPROP :D8 (L (1 PROP 0 STREAM)) @dÃ§¿¿@É,A'(13 \ILLEGAL.ARG) (20 STREAM 6 STREAM) () PUTSTREAMPROP :D8 (L (2 VALUE 1 PROP 0 STREAM) P 1 OLDVALUE) p@dÃ¨¿@ ¿@É,!HµB´@ABh,hA'YBšHAB¿°/I´-HdAð² ¿@H,¿°Að—Jd¿†JZµîI(60 LISTPUT 14 \ILLEGAL.ARG) (80 STREAM 38 STREAM 21 STREAM 6 STREAM) () STREAMP :D8 (L (0 X)) @Ã´@NIL (5 STREAM) () \DEFPRINT.BY.NAME :D8 (L (3 TYPENAME 2 NAME 1 STREAM 0 OBJECT) F 3 \THISFILELINELENGTH F 4 *READTABLE*) ¾S²'C lÔBµ‚±¥jÔAÈØSñ–A ¿ATÊHÉ(ºHIlJAÉ(AllHi ±ÿZ(185 NCHARS 160 \PRINTADDR 133 \SOUT 127 MKSTRING 99 \SOUT 93 MKSTRING 38 FRESHLINE 8 NCHARS) (166 STREAM 140 STREAM 108 STREAM 74 STREAM 58 STREAM 46 READTABLEP 26 STREAM) () \STREAM.DEFPRINT :D8 (L (1 OUTSTREAM 0 STRM)) ’@Êdkð—¿o°*dlð—¿o°dlð–¿oŽlð•o„o@Ah@É²Ho@É°+Ho@É É o(143 \DEFPRINT.BY.NAME 138 CONCAT 128 CL:STRING-CAPITALIZE 123 STRING 95 CONCAT) (116 FDEV 109 STREAM 88 STREAM 72 STREAM 5 STREAM) ( 133 " Stream" 103 " " 82 " Stream on " 60 "Closed" 54 "Append" 44 "IO" 31 "Output" 18 "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") \INSTALL.EXTERNALFORMAT :D8 (L (1 EXTERNALFORMAT 0 NAME) P 0 \INTERRUPTABLE) ]AÃ²J@dd3@ð’¿@„ b@`µ @d`•°A°`¿@A`@oA (90 ERROR 22 MKATOM) (77 *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT* 71 *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT* 62 *SUPPORTED-EXTERNALFORMATS* 56 *SUPPORTED-EXTERNALFORMATS* 43 *SUPPORTED-EXTERNALFORMATS* 33 *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT* 5 EXTERNALFORMAT) ( 84 "INVALID EXTERNALFORMAT ") \REMOVE.EXTERNALFORMAT :D8 (L (0 EXTERNALFORMAT) P 1 \INTERRUPTABLE) 9@` X²'H` ¿H` @(48 DREMOVE 31 DREMOVE 13 CL:RASSOC) (53 *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT* 43 *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT* 36 *SUPPORTED-EXTERNALFORMATS* 26 *SUPPORTED-EXTERNALFORMATS* 8 *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT*) () \GET.EXTERNALFORMAT.FROM.NAME :D8 (L (0 NAME)) @dd3@ð’¿@„ d`(14 MKATOM) (20 *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT*) () \EXTERNALFORMAT :D8 (L (1 NEWVALUE 0 STREAM)) Ü@Aµ@Ê0jð’±Å@É,g'o@jÏ0¿µ‚±‚Ad`¢±‘¿@É,Add3@ð’¿A„ @kÏ0¿Hµd@gIh,A !@É,¹@kÏ0¿kjðhðIµ*@gHh,¿@HÉ(HÊjðhð´@HÊZÏJgH°ÙgI°ŸoAg(211 ERROR 198 LISTPUT 185 LISTPUT 108 \GET.EXTERNALFORMAT.FROM.NAME 77 MKATOM) (217 :DEFAULT 192 EXTERNALFORMAT.NAME 179 EXTERNALFORMAT 140 EXTERNALFORMAT 113 EXTERNALFORMAT 95 EXTERNALFORMAT.NAME 53 *SUPPORTED-EXTERNALFORMATS* 26 EXTERNALFORMAT.NAME 5 STREAM) ( 205 "INVALID EXTERNALFORMAT " 33 (:XCCS :DEFAULT)) \CREATE.JIS.EXTERNALFORMAT :D8 NIL @`dg¿dg¿dg¿dg¿djÏ¿gH (61 \INSTALL.EXTERNALFORMAT) (55 :JIS 38 \JISFILEOUTCHARFN 29 \BACKJISCHAR 20 \JISPEEK 11 \JISIN 4 |EXTERNALFORMATTYPE#|) () \CREATE.SHIFTJIS.EXTERNALFORMAT :D8 NIL ‚`dg¿dg¿dg¿dg¿djÏ¿`dg¿dg¿dg¿dg¿dkÏ¿dlÏ¿gH gI (127 \INSTALL.EXTERNALFORMAT 116 \INSTALL.EXTERNALFORMAT) (121 :MS 110 :W-MS 86 \SHIFTJISFILEOUTCHARFN 77 \BACKSHIFTJISCHAR 68 \SHIFTJISPEEK 59 \SHIFTJISIN 52 |EXTERNALFORMATTYPE#| 38 \SHIFTJISFILEOUTCHARFN 29 \BACKSHIFTJISCHAR 20 \SHIFTJISPEEK 11 \SHIFTJISIN 4 |EXTERNALFORMATTYPE#|) () \CREATE.EUC.EXTERNALFORMAT :D8 NIL @`dg¿dg¿dg¿dg¿djÏ¿gH (61 \INSTALL.EXTERNALFORMAT) (55 :EUC 38 \EUCFILEOUTCHARFN 29 \BACKEUCCHAR 20 \EUCPEEK 11 \EUCIN 4 |EXTERNALFORMATTYPE#|) () \CREATE.THROUGH.EXTERNALFORMAT :D8 NIL F`dg¿dg¿dg¿dg¿dkÏ¿djÏ¿gH (67 \INSTALL.EXTERNALFORMAT) (61 :THROUGH 38 \THROUGHFILEOUTCHARFN 29 \BACKTHROUGHCHAR 20 \THROUGHPEEK 11 \THROUGHIN 4 |EXTERNALFORMATTYPE#|) () \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)) J@dÃœ¿@ Ã–@ €@ bAµ di bdŸÉ@AlH(51 \GETDEVICEFROMNAME 39 \ADD.CONNECTED.DIR 32 INTERLISP-NAMESTRING 19 INTERLISP-NAMESTRING 14 CL:TRANSLATE-LOGICAL-PATHNAME) (60 FDEV 25 PATHNAME 6 CL:LOGICAL-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 (2 OPTIONS 1 DESIREDPROPS 0 PATTERN)) $@ bd HÉ¹H@ABlI(13 \GETDEVICEFROMNAME 5 \ADD.CONNECTED.DIR) (22 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)) L@dÃœ¿@ Ã–@ €@ bBµdi bd²É@ABlH(51 \GETDEVICEFROMNAME 39 \ADD.CONNECTED.DIR 32 INTERLISP-NAMESTRING 19 INTERLISP-NAMESTRING 14 CL:TRANSLATE-LOGICAL-PATHNAME) (61 FDEV 25 PATHNAME 6 CL:LOGICAL-PATHNAME) () \GENERIC.READCCODE :D8 (L (1 RDTBL 0 FILE) P 1 \RefillBufferFn P 0 *READTABLE* F 12 *READTABLE*) A•Adið’¿Wg@gh“JJdÊ0jð²m¿J ]lÿð²7JÉ ÉH»Jd ]lÿð¡MŽJd jð“¿lÿ„ ^lK¿J ½N°JÉ ÉH¼JhlLá^nÿð”MáJ ‡Md²-´+NMä°&É,g'_Ã´OÉ_¿JhlOJÊ_¿_dl ð²-¿Odjð”¿l °2lð²Ji l ð–J ¿l °l °l °l ðšOkð’l „l O_Í5O(236 \PEEKBIN 104 \NSIN.24BITENCODING.ERROR 31 \GETSTREAM) (185 EXTERNALFORMAT 176 EXTERNALFORMAT 168 EXTERNALFORMAT 129 FDEV 122 STREAM 76 FDEV 69 STREAM 47 STREAM 40 STREAM 25 INPUT 19 \READCREFILL 14 READTABLEP) () \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)) ÑB1HµhYd–ºIºi»JdgðŸ¿@gK±šgðž@gK±„Jdgð™¿@K °pgð˜@K °`Jdgð™¿@K °Mgð³Jgð¨Jgð²5@Kdgð“¿j°gð’k°Kdgð“¿l„ Ï¿HX±ÿ8(197 \ILLEGAL.ARG 123 CONVHANKAKU 104 \EXTERNALFORMAT 88 CHARSET 68 SETFILEINFO 46 SETFILEINFO) (186 CRLF 174 LF 163 CR 156 STREAM 147 EOLC 139 EOLCONVENTION 130 EOL 113 CONVHANKAKU 95 EXTERNALFORMAT 78 CHARSET 62 ENDOFSTREAMOP 54 ENDOFSTREAMOP 40 BUFFERS 31 BUFFERS) () \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)) ii ¿i ¿oi ¿AÉµAi @dgð²¿oi i gð²oi i (102 SHOULDNT 96 TERPRI 90 PRIN1 70 TERPRI 64 PRIN1 42 PRIN1 24 PRIN1 12 TERPRI 5 TERPRI) (76 DELETED 49 CHANGED 31 STREAM) ( 84 " was previously opened but has disappeared!" 58 " has been modified since you last accessed it!" 18 "**** WARNING: The 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*) ˆ@d²$dÃœ¿@ Ã–@ €@igµ o@ R IH ¿IH ¿IH ¿Ic`(122 CL:PATHNAME-DIRECTORY 107 CL:PATHNAME-DEVICE 92 CL:PATHNAME-HOST 77 COPY-PATHNAME 71 PATHNAME 61 ERROR 48 DIRECTORYNAME 35 INTERLISP-NAMESTRING 22 INTERLISP-NAMESTRING 17 CL:TRANSLATE-LOGICAL-PATHNAME) (133 \CONNECTED.DIRECTORY 116 PATHNAME 101 PATHNAME 86 PATHNAME 66 \CONNECTED.DIRECTORY 43 ASK 28 PATHNAME 9 CL:LOGICAL-PATHNAME) ( 55 "Non-existent directory") DIRECTORYNAME :D8 (L (2 CREATE? 1 STRPTR 0 DIRNAME)) Ò@Ã˜@ b¿0@dið˜¿`±³`µ‚±g±ˆ@g µB@k dl<ð¤dl/ðœ¿g@g‹¿g@g`bg Yd²;Éº@IBlJXd²(ið²gIÉg@¸Aµ H ið²÷H (207 MKATOM 196 MKSTRING 186 PACKFILENAME.STRING 135 \GETDEVICEFROMHOSTNAME 130 FILENAMEFIELD 118 PACKFILENAME.STRING 73 NTHCHARCODE 64 FILENAMEFIELD 12 CL:NAMESTRING) (180 DIRECTORY 173 FDEV 167 HOST 144 FDEV 125 HOST 113 \CONNECTED.DIRECTORY 108 DIRECTORY 102 SUBDIRECTORY 95 BODY 89 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)) -@ A jóHÊ^IÊ_ð›HIBC±÷HÉ Êjðhð[–H ½C²dK³oHÉ ¿BjØZ_3 jOñ¨Ooñ˜Bl ¿HJ ¿Cdmÿð³od3 ²¿jCñªCdoñ¢°\C °TB²2K²,HÉ ÉN_¿HkOºMBJØ_¿dOñ²)¿O°$B°!K¢±yHÉ ÉN_¿HkOZ¿M¼JLñoLJÙ ¿Ndjð¢±o¿LJÙdjñ¢±ýH _l ð¢±LOlð˜Il ¿Il ±:IHdÊ0jð¢±€¿H _ lÿð²@HÉ ÉH_¿Hd _ lÿð¢O ŽHd jð“¿lÿ„ _"lO¿H _ ¿O"°HÉ ÉH_¿HhlOá_"nÿð•O áH ŠO d²/´-O"O ä°&É,g'_$Ã´O$É_&¿HhlO&HÊ_*¿_(dl ð²-¿O*djð”¿l °2lð²Hi l ð–H ¿l °l °l °l ðšO*kð’l „l O(_0¿_.É(_,¿O.O0lO,¿HÉ É<_¿HkO¢±þÒ±©IO ¿k±þškð²4LJÙdjñ¢±ŽH _l ð²Il ¿OlðœIl ‚IO ¿k°ÒNlð²ZkLJÙ_4¿_2¿O2O4ó³NIH _dl ð².¿O4dkð³#mÿÔ_4¿H _l ðšOjð’l l ŠIl ¿O ¿O4mÿÔ_4¿°´i(809 SHOULDNT 793 \BOUT 785 \BOUT 706 \BOUT 687 \BOUT 651 \BOUT 552 \PEEKBIN 407 \NSIN.24BITENCODING.ERROR 328 \BOUT 283 ERROR 181 \ILLEGAL.ARG 146 \SETFILEPTR 138 \LISPERROR 106 ERROR 81 \GETEOFPTR 50 COPYBYTES 11 \GETSTREAM 5 \GETSTREAM) (626 FDEV 619 STREAM 598 STREAM 501 EXTERNALFORMAT 492 EXTERNALFORMAT 484 EXTERNALFORMAT 437 FDEV 430 STREAM 375 FDEV 368 STREAM 343 STREAM 252 FDEV 245 STREAM 202 FDEV 195 STREAM 99 STREAM 66 FDEV 59 STREAM 34 STREAM 24 STREAM) ( 275 "Negative number of bytes to copy" 171 1073741823 128 1073741823 93 "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 TOFILE F 3 DESTPARAMETERS) -oPggochQcPRS(42 \COPYOPENFILE 25 OPENSTREAM) (15 OLD 10 INPUT) ( 20 ((SEQUENTIAL T) (DON'TCACHE T)) 4 (PROGN (CLOSEF OLDVALUE))) COPYFILE :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST 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 9 SI::*RESETFORMS* F 10 FileTypeConfirmFlg) i BgB³@g Z›gJhH¸@g Z›gJhH¸gBY³+@g Y—Igð—@ Y›gIhH¸oAggooH[hWcIgð¢±‰Kg Jð³y@g*¿@Ê_¿@ _²aKOdl ð²-¿Odjð”¿l °2lð²@i l ð–@ ¿l °l °l °l ðšOkð’l „l O¾]É(¼MNlL°¤@K ¿`lð²!W²g ŸgB§@K ¿K (358 CLOSEF 351 \UFStoOtherCopyMess 335 STKPOS 310 COPYBYTES 249 \PEEKBIN 180 GETFILEINFO 149 OPENSTREAM 101 \INFER.FILE.TYPE 85 GETFILEINFO 48 GETFILEINFO 23 GETFILEINFO) (341 TYPE 330 COPYFILE 316 \MACHINETYPE 292 STREAM 204 STREAM 195 NILL 190 STREAM 175 EOL 164 TEXT 131 NEW 126 OUTPUT 108 TYPE 93 ? 80 TYPE 67 TYPE 55 LENGTH 43 LENGTH 30 CREATIONDATE 18 CREATIONDATE 8 CREATIONDATE) ( 141 (DON'TCACHE T) 136 (SEQUENTIAL T) 120 (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 (12 FDEV 5 STREAM) () GETEOFPTR :D8 (L (0 FILE)) @ HÉ ÉP¹HkI(5 \GETSTREAM) (21 FDEV 14 STREAM) () GETFILEINFO :D8 (L (1 ATTRIB 0 FILE)) ë€@dÃ¢±C¿Agð–@ @É YÉDº@AIlJµ‚±°@Êjð’±ÙAgð©Adgðš¿@Êgð²/@Êdjð•gdkð•glð•gAdgð™¿@È4gð–@ Adgð™¿@É*gð²@ ´‚±@ Agð´.IÉD»@gIlKµ@ ´@ d•nÿØãâAgð´‚±¾IÉD¼@gIlLd¢±¥nÿØãâdÃœ¿@ Ã–@ €@ X Yµ@l É½HgIlMX²ãAgð§Agð‘hIÉD¾HAIlNµ*Agð´!IÉD_¿HgIlOd•nÿØãâ(389 \LISPERROR 378 \GETDEVICEFROMNAME 372 \ADD.CONNECTED.DIR 365 INTERLISP-NAMESTRING 352 INTERLISP-NAMESTRING 347 CL:TRANSLATE-LOGICAL-PATHNAME 279 \GETEOFPTR 271 RANDACCESSP 233 \GETEOFPTR 221 RANDACCESSP 187 CHARSET 154 SHOULDNT 28 \GETACCESS) (474 LENGTH 463 FDEV 454 SIZE 436 FDEV 426 OPENBYTESIZE 418 ACCESS 404 OLD 395 FDEV 358 PATHNAME 339 CL:LOGICAL-PATHNAME 316 LENGTH 307 FDEV 294 SIZE 258 LENGTH 249 FDEV 240 SIZE 212 LENGTH 204 STREAM 195 ENDOFSTREAMOP 179 CHARSET 171 STREAM 162 BUFFERS 148 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ð²6@Bdgð“¿j°gð“l°Bdgð’¿k„ ÏBAdgð›¿@B*Bgð²@BjØºkJñ¡J€k[Í4KAgð—@B @É YÉF¼@ABIlLµxAdgð²$¿@Bd3 Ÿ¿jBñ©Bdoñ¡…B gð´@Báà dÃœ¿@ Ã–@ €@ X Yµ@l É½HgIlMX²ãAgð’±þÏAgð’±þÄAgð’±þ¹IÉF¾HABIlNµ·Agð´®HBd3 Ÿ¿jBñ©Bdoñ¡…B (430 \SETCLOSEDFILELENGTH 425 \ILLEGAL.ARG 314 \LISPERROR 303 \GETDEVICEFROMNAME 297 \ADD.CONNECTED.DIR 290 INTERLISP-NAMESTRING 277 INTERLISP-NAMESTRING 272 CL:TRANSLATE-LOGICAL-PATHNAME 257 \SETEOFPTR 239 \SETEOFPTR 234 \ILLEGAL.ARG 168 CHARSET 97 \ILLEGAL.ARG) (395 LENGTH 376 FDEV 365 EOLCONVENTION 354 OPENBYTESIZE 343 ACCESS 329 OLD 320 FDEV 283 PATHNAME 264 CL:LOGICAL-PATHNAME 245 SIZE 203 LENGTH 183 FDEV 175 STREAM 159 CHARSET 137 STREAM 128 BUFFERS 118 STREAM 109 ENDOFSTREAMOP 87 LF 74 CRLF 63 CR 56 STREAM 47 EOL 38 OPENBYTESIZE 29 BYTESIZE 20 ACCESS 9 STREAM) ( 416 1073741823 225 1073741823) SETFILEPTR :D8 (L (1 ADR 0 FILE)) r@ !HÉ ÉR¹HAdmÿð˜¿d °d3 Ÿ¿jAñ©Adoñ¡‡Al lI¿HdÊ‡lÿð³¿HÉ ÉHºHjlJ¿HjÍA(62 \LISPERROR 33 \GETEOFPTR 5 \GETSTREAM) (96 FDEV 89 STREAM 74 STREAM 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 A2825) #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 A2825 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 STREAM) P 20 \INTERRUPTABLE F 21 \PRIMTERMSA) y@É ÉH@hlHáñ@@É É<¹@kIhð´‚±>Ahðhðµ‚±3W*@dÊ0jð¢±ª¿@i h¾]d¢±¿lÿð²D@ ¿@É ÉHº@d ]lÿð¡MŽ@d jð“¿lÿ„ ^lJ¿Ná¾@i ]³h°w@É ÉH»@hlKá¾Nnÿð²@ ¿Má@i ä@ ¿°B@É ÉH¼@hlLáMä°'É,g'_Ã´OÉ_¿@ihlOd¢±P_¿_¿Olÿñ²!OÉ€²OOÉ€ µ j„OOÂkðhðµ‚±@dÊ0jð²Z¿@ h_¿_lÿð²A@É ÉH_¿@d _lÿð¢OŽ@d jð“¿lÿ„ _lO¿@ _¿OáX€Hnÿð²+@ °&É,g'_Ã´OÉ_¿@hlO¿@É É<_ ¿@kO hð@dÊ0jð²:¿@ ²VHµ)@É ÉH_"¿@hlO"lÿð²5@ ²-nÿ°ñÉ,g'_$Ã´O$É_&¿@hlO&¿(585 \BACKFILEPTR 544 \BACKFILEPTR 432 \NSIN.24BITENCODING.ERROR 337 GETHASH 225 \BACKFILEPTR 218 \PEEKBIN 169 \PEEKBIN 153 \NSIN.24BITENCODING.ERROR 96 \PEEKBIN) (617 EXTERNALFORMAT 608 EXTERNALFORMAT 600 EXTERNALFORMAT 562 FDEV 555 STREAM 530 STREAM 511 FDEV 504 STREAM 485 EXTERNALFORMAT 476 EXTERNALFORMAT 468 EXTERNALFORMAT 400 FDEV 393 STREAM 366 STREAM 330 CHARTABLE 317 CHARTABLE 279 EXTERNALFORMAT 270 EXTERNALFORMAT 262 EXTERNALFORMAT 241 FDEV 234 STREAM 188 FDEV 181 STREAM 125 FDEV 118 STREAM 79 STREAM 44 FDEV 37 STREAM 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 () \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) () \NULLDEVICEA0014 :D8 (L (1 NOERRORFLG 0 STREAM)) Ahð´@ NIL NIL () \NULLDEVICE :D8 NIL bg`dg¿dkÏ¿dkÏ ¿dg¿dg¿dg¿dg¿dg,¿dg.¿dg0¿dg:¿dgT¿dg<¿dg¿dg¿dg ¿dg>¿dg@¿dg¿dgN¿dgP¿dgR¿dgD¿dgF¿dgV¿dgh¿dgH¿dgB¿dg8¿dg6¿dg4¿dg2¿dg*¿dg ¿dg¿dg¿dg¿dg¿ (351 \DEFINEDEVICE) (343 NILL 334 NILL 325 NILL 316 NILL 307 NILL 298 NILL 289 \GENERIC.READCHAR 280 \GENERIC.WRITECHAR 271 \GENERIC.PEEKCHAR 262 \GENERIC.UNREADCHAR 253 NILL 244 \GENERIC.CHARSET 235 \GENERIC.READCCODE 226 NILL 217 NILL 208 NILL 199 NILL 190 ZERO 181 ZERO 172 \NULLFILEGENERATOR 163 NILL 154 \EOF.ACTION 145 NILL 136 NILL 127 NILL 118 TRUE 109 NILL 100 NILL 91 \NULLDEVICEA0014 82 NILL 73 \EOF.ACTION 64 \NULL.OPENFILE 55 \NULL.OPENFILE 46 NILL 37 NILL 16 NULL 9 |FDEVTYPE#| 4 NULL) () \NULL.OPENFILE :D8 (L (5 OLDSTREAM 4 DEVICE 3 PARAMETERS 2 RECOG 1 ACCESS 0 NAME)) ®Eµ‚±¨ldkÏ0¿dh¿dD ¿dnÿÿÍ5¿`HdIÍ4¿dh2¿d`.¿dg*¿dg(¿dg&¿dg$¿`HdIÍ¿dj¿dj¿djÏ0¿djÏ¿dkÏ¿djÍ¿dlÏ¿dh¿djÏ¿dA ¿(170 \SETACCESS) (102 FILELINELENGTH 94 \STREAM.NOT.OPEN 85 \STREAM.NOT.OPEN 76 \FILEOUTCHARFN 67 \EOSERROR 58 \NOIMAGEOPS 37 \STREAM.DEFAULT.MAXBUFFERS) () (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)) \NORUNCODE) (MACROS TestMasked APPENDABLE APPENDONLY DIRTYABLE OPENED OVERWRITEABLE READABLE READONLY WRITEABLE) (MACROS \RUNCODED) (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 (* ; "EXTERNALFORMAT declaration and related functions") (DECLARE%: DOEVAL@COMPILE DONTCOPY (EXPORT ( RECORDS EXTERNALFORMAT))) (INITRECORDS EXTERNALFORMAT) (SYSRECORDS EXTERNALFORMAT) (FNS \INSTALL.EXTERNALFORMAT \REMOVE.EXTERNALFORMAT \GET.EXTERNALFORMAT.FROM.NAME \EXTERNALFORMAT) ( INITVARS (*SUPPORTED-EXTERNALFORMATS* (QUOTE (:XCCS :DEFAULT))) ( *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT*)) (GLOBALVARS *SUPPORTED-EXTERNALFORMATS* *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT*) (FNS \CREATE.JIS.EXTERNALFORMAT \CREATE.SHIFTJIS.EXTERNALFORMAT \CREATE.EUC.EXTERNALFORMAT \CREATE.THROUGH.EXTERNALFORMAT) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\CREATE.JIS.EXTERNALFORMAT) (\CREATE.SHIFTJIS.EXTERNALFORMAT) ( \CREATE.EUC.EXTERNALFORMAT) (\CREATE.THROUGH.EXTERNALFORMAT)))) (COMS (* ; "Device operations") (FNS \DEFINEDEVICE \GETDEVICEFROMNAME \GETDEVICEFROMHOSTNAME \REMOVEDEVICE \REMOVEDEVICE.NAMES) (FNS \CLOSEFILE \DELETEFILE \DEVICEEVENT \GENERATEFILES \GENERATENEXTFILE \GENERATEFILEINFO \GETFILENAME \GENERIC.READCCODE \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) (VARS FILING.TYPES) (GLOBALVARS FILING.TYPES) (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (MACROS \OUTCHAR \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) (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)) (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))))) (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) (NOTXCCS 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)))) (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) (READCHAR POINTER) (WRITECHAR POINTER) (PEEKCHAR POINTER) (UNREADCHAR 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) (READCHARCODE POINTER)))) (/DECLAREDATATYPE (QUOTE EXTERNALFORMAT) (QUOTE (FLAG (BITS 2) (BITS 1) POINTER POINTER POINTER POINTER)) (QUOTE ((EXTERNALFORMAT 0 (FLAGBITS . 0)) (EXTERNALFORMAT 0 (BITS . 17)) (EXTERNALFORMAT 0 ( BITS . 48)) (EXTERNALFORMAT 0 POINTER) (EXTERNALFORMAT 2 POINTER) (EXTERNALFORMAT 4 POINTER) ( EXTERNALFORMAT 6 POINTER))) (QUOTE 8)) (ADDTOVAR SYSTEMRECLST (DATATYPE EXTERNALFORMAT ((EOLVALID FLAG) (EOL BITS 2) (NIL BITS 1) (INCCODEFN POINTER) (PEEKCCODEFN POINTER) (BACKCHARFN POINTER) (FILEOUTCHARFN POINTER)))) (RPAQ? *SUPPORTED-EXTERNALFORMATS* (QUOTE (:XCCS :DEFAULT))) (RPAQ? *EXTERNALFORMAT-NAME-TO-EXTERNALFORMAT*) (\CREATE.JIS.EXTERNALFORMAT) (\CREATE.SHIFTJIS.EXTERNALFORMAT) (\CREATE.EUC.EXTERNALFORMAT) (\CREATE.THROUGH.EXTERNALFORMAT) (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))) (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 ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1993)) NIL