(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED " 8-Dec-2023 15:47:18" ("compiled on " |{WMEDLEY}CLSTREAMS.;43|) " 8-Dec-2023 15:37:10" "COMPILE-FILEd" |in| "FULL 8-Dec-2023 ..." |dated| " 8-Dec-2023 15:37:15") (FILECREATED " 8-Dec-2023 15:46:10" |{WMEDLEY}CLSTREAMS.;43| 66631 :EDIT-BY |rmk| :CHANGES-TO (FUNCTIONS %BROADCAST-STREAM-DEVICE-CHARSETFN %CONCATENATED-STREAM-DEVICE-CHARSETFN) (FNS %SYNONYM-STREAM-DEVICE-CHARSETFN %TWO-WAY-STREAM-DEVICE-CHARSETFN) :PREVIOUS-DATE "20-Jul-2022 00:03:06" |{WMEDLEY}CLSTREAMS.;41|) (RPAQQ CLSTREAMSCOMS ((* |;;;| "Implements a number of stream functions from CommonLisp. See CLtL chapter 21") (COMS (* |;;| "documented functions and macros") (FUNCTIONS OPEN CL:CLOSE CL:STREAM-EXTERNAL-FORMAT) (FUNCTIONS CL:STREAM-ELEMENT-TYPE CL:INPUT-STREAM-P CL:OUTPUT-STREAM-P XCL:OPEN-STREAM-P) (COMS (FUNCTIONS FILE-STREAM-POSITION) (SETFS FILE-STREAM-POSITION)) (FUNCTIONS CL:MAKE-SYNONYM-STREAM XCL:SYNONYM-STREAM-P XCL:SYNONYM-STREAM-SYMBOL XCL:FOLLOW-SYNONYM-STREAMS) (FUNCTIONS CL:MAKE-BROADCAST-STREAM XCL:BROADCAST-STREAM-P XCL:BROADCAST-STREAM-STREAMS) (FUNCTIONS CL:MAKE-CONCATENATED-STREAM XCL:CONCATENATED-STREAM-P XCL:CONCATENATED-STREAM-STREAMS) (FUNCTIONS CL:MAKE-TWO-WAY-STREAM XCL:TWO-WAY-STREAM-P XCL:TWO-WAY-STREAM-OUTPUT-STREAM XCL:TWO-WAY-STREAM-INPUT-STREAM) (FUNCTIONS CL:MAKE-ECHO-STREAM XCL:ECHO-STREAM-P XCL:ECHO-STREAM-INPUT-STREAM XCL:ECHO-STREAM-OUTPUT-STREAM) (FUNCTIONS CL:MAKE-STRING-INPUT-STREAM MAKE-CONCATENATED-STRING-INPUT-STREAM) (FUNCTIONS %MAKE-INITIAL-STRING-STREAM-CONTENTS) (FUNCTIONS CL:WITH-OPEN-STREAM CL:WITH-INPUT-FROM-STRING CL:WITH-OUTPUT-TO-STRING CL:WITH-OPEN-FILE) (FUNCTIONS CL:MAKE-STRING-OUTPUT-STREAM MAKE-FILL-POINTER-OUTPUT-STREAM CL:GET-OUTPUT-STREAM-STRING \\STRING-STREAM-OUTCHARFN \\ADJUSTABLE-STRING-STREAM-OUTCHARFN)) (COMS (* |;;| "helpers") (FUNCTIONS %NEW-FILE PREDICT-NAME) (DECLARE\: EVAL@COMPILE DONTCOPY (FUNCTIONS INTERLISP-ACCESS))) (* |;;| "methods for the special devices") (COMS (* \; "broadcast streams") (FNS %BROADCAST-STREAM-DEVICE-BOUT %BROADCAST-STREAM-DEVICE-CLOSEFILE %BROADCAST-STREAM-DEVICE-FORCEOUTPUT) (FUNCTIONS %BROADCAST-STREAM-DEVICE-CHARSETFN) (FNS %BROADCAST-STREAM-OUTCHARFN)) (COMS (* \; "Concatenated streams") (FNS %CONCATENATED-STREAM-DEVICE-BIN %CONCATENATED-STREAM-DEVICE-CLOSEFILE %CONCATENATED-STREAM-DEVICE-EOFP %CONCATENATED-STREAM-DEVICE-PEEKBIN %CONCATENATED-STREAM-DEVICE-BACKFILEPTR) (FNS %CONCATENATED-STREAM-INCCODEFN %CONCATENATED-STREAM-PEEKCCODEFN %CONCATENATED-STREAM-BACKCCODEFN) (FUNCTIONS %CONCATENATED-STREAM-DEVICE-CHARSETFN)) (FNS %ECHO-STREAM-DEVICE-BIN %ECHO-STREAM-INCCODEFN) (COMS (* \; "Synonym streams") (FUNCTIONS %SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM) (FNS %SYNONYM-STREAM-DEVICE-BIN %SYNONYM-STREAM-DEVICE-BOUT %SYNONYM-STREAM-DEVICE-EOFP %SYNONYM-STREAM-DEVICE-FORCEOUTPUT %SYNONYM-STREAM-DEVICE-GETFILEINFO %SYNONYM-STREAM-DEVICE-PEEKBIN %SYNONYM-STREAM-DEVICE-READP %SYNONYM-STREAM-DEVICE-BACKFILEPTR %SYNONYM-STREAM-DEVICE-SETFILEINFO %SYNONYM-STREAM-DEVICE-CHARSETFN %SYNONYM-STREAM-DEVICE-CLOSEFILE) (* |;;| "helper ") (FNS %SYNONYM-STREAM-DEVICE-GET-STREAM) (* |;;| "Synonym external format") (FNS %SYNONYM-STREAM-OUTCHARFN %SYNONYM-STREAM-INCCODEFN %SYNONYM-STREAM-PEEKCCODEFN %SYNONYM-STREAM-BACKCCODEFN)) (COMS (* \; "Two-way streams") (FNS %TWO-WAY-STREAM-BACKCCODEFN %TWO-WAY-STREAM-INCCODEFN %TWO-WAY-STREAM-OUTCHARFN %TWO-WAY-STREAM-PEEKCCODEFN) (FNS %TWO-WAY-STREAM-DEVICE-BIN %TWO-WAY-STREAM-DEVICE-INPUTSTREAM %TWO-WAY-STREAM-DEVICE-BOUT %TWO-WAY-STREAM-DEVICE-OUTPUTSTREAM %TWO-WAY-STREAM-DEVICE-OUTCHARFN %TWO-WAY-STREAM-DEVICE-CLOSEFILE %TWO-WAY-STREAM-DEVICE-EOFP %TWO-WAY-STREAM-DEVICE-READP %TWO-WAY-STREAM-DEVICE-BACKFILEPTR %TWO-WAY-STREAM-DEVICE-FORCEOUTPUT %TWO-WAY-STREAM-DEVICE-PEEKBIN %TWO-WAY-STREAM-DEVICE-CHARSETFN)) (COMS (* \; "Fill-pointer streams") (FUNCTIONS %FILL-POINTER-STREAM-DEVICE-CLOSEFILE %FILL-POINTER-STREAM-DEVICE-GETFILEPTR)) (GLOBALVARS %SYNONYM-STREAM-DEVICE %BROADCAST-STREAM-DEVICE %CONCATENATED-STREAM-DEVICE %TWO-WAY-STREAM-DEVICE %ECHO-STREAM-DEVICE \\FILL-POINTER-STREAM-DEVICE) (COMS (* |;;| "module initialization") (VARIABLES *DEBUG-IO* *QUERY-IO* *TERMINAL-IO* *ERROR-OUTPUT* *STANDARD-OUTPUT* *STANDARD-INPUT*) (FUNCTIONS %INITIALIZE-STANDARD-STREAMS) (FNS %INITIALIZE-CLSTREAM-TYPES) (DECLARE\: DONTEVAL@LOAD DOCOPY (* \; "initialization") (P (%INITIALIZE-CLSTREAM-TYPES) (%INITIALIZE-STANDARD-STREAMS)))) (PROP FILETYPE CLSTREAMS))) OPEN :D8 (L (0 |-args-|) F 31 *QUERY-IO*) Mekañ€Hl»ºKJó¢±äg¼Hl¾½NdMó¢±è¿g_¿i_¿Hl_¿_¿OdOó¢±ß¿h__¿i_¿Hl_¿_¿OdOó¢±Û¿h__¿Hl_"¿_ ¿O"dO ó¢±Û¿g_$¿Lo «oL ¿Oogg¬oO ¿I Lo Lo Ldgð¢±ˆ¿g±šKdagð¦lÔ[±ÿkØa±ÿagð–NkØa±ÿNlÔ^±ÿagð—OkØa±ÿOlÔ_±ÿagð—OkØa±ÿOlÔ_±ÿ agð—O"kØa±ÿ!O"lÔ_"±ÿ gð•gLgð´gOogg•g„gO³O2 gð•g„g_¿O³,Ogð©Ldgð–¿ggð‘h„g_¿O2 _0 _.¿O0¢±>O6¢±YOdgð²;¿ooO.¿O.O8hgO:hgO$hh_<±úgð³!Ogð³Ogð«Odgð²-¿O2O8ggO:hgO$hh_<±©gð²+O.O8ggO:hgO$hh_<°wOdgð²z¿Lgð².O.gggO:hgO$hh_<°3O.gggO:hgO$hh_o ¿W> _2±ýigð²,O2O8ggO:hgO$hh_<±þO´‚±þ˜o°gO4¢±þyOdgð²8¿oggO2¿W>o ¿W> _2±üágð™O2 ±üÐO´‚±þ1oO ±ü¹(1352 CL:ERROR 1329 %NEW-FILE 1310 PATHNAME 1305 CL:READ-LINE 1297 CL:FORMAT 1284 CL:CERROR 1224 OPENSTREAM 1174 PATHNAME 1169 CL:READ-LINE 1161 CL:FORMAT 1148 CL:CERROR 1100 \\EXTERNALFORMAT 940 FULLNAME 926 OPENSTREAM 869 STREAMPROP 855 SETFILEPTR 846 OPENSTREAM 802 OPENSTREAM 737 OPENSTREAM 687 OPENSTREAM 606 OPENSTREAM 572 CL:CERROR 528 MKSTRING 521 PREDICT-NAME 447 CL:PATHNAME-VERSION 421 CL:MEMBER 227 MEMQ 216 MEMQ 205 PATHNAME 198 CL:ERROR 185 CL:MEMBER 162 CL:ERROR 150 MEMQ) (1320 :CREATE 1277 :PATHNAME 1272 XCL:FILE-NOT-FOUND 1258 :ERROR 1211 EXTERNALFORMAT 1201 TYPE 1196 NEW 1184 :CREATE 1141 :PATHNAME 1136 XCL:FILE-NOT-FOUND 1122 :ERROR 1095 :DEFAULT 1086 FDEV 1016 FILELINELENGTH 1008 \\STREAM.NOT.OPEN 999 \\STREAM.NOT.OPEN 990 \\EOSERROR 981 \\NOIMAGEOPS 961 \\STREAM.DEFAULT.MAXBUFFERS 913 EXTERNALFORMAT 903 TYPE 898 OLD 863 :FILE-STREAM-P 833 EXTERNALFORMAT 823 TYPE 818 OLD 813 BOTH 789 EXTERNALFORMAT 779 TYPE 774 OLD 769 APPEND 759 :OUTPUT 749 :APPEND 724 EXTERNALFORMAT 714 TYPE 709 OLD 697 :OVERWRITE 674 EXTERNALFORMAT 664 TYPE 659 NEW 646 :RENAME-AND-DELETE 636 :RENAME 626 :SUPERSEDE 616 :NEW-VERSION 593 EXTERNALFORMAT 583 TYPE 551 :ERROR 511 :CREATE 502 :PROBE 496 :ERROR 488 :INPUT 479 :APPEND 465 :ERROR 459 :NEW-VERSION 452 :NEWEST 433 TEXT 427 BINARY 416 CL:EQUAL 411 :TEST 399 BOTH 391 :IO 384 OUTPUT 377 :OUTPUT 352 :EXTERNAL-FORMAT 326 :IF-DOES-NOT-EXIST 300 :IF-EXISTS 277 :ELEMENT-TYPE 256 :DIRECTION 245 INPUT 234 :INPUT 180 CL:EQUAL 175 :TEST 136 :DEFAULT 48 CL:STRING-CHAR 28 :INPUT) ( 1345 "~S is not a valid value for :if-does-not-exist." 1292 "~&New file name: " 1267 "prompt for a new name." 1242 "~S is not a valid value for :if-does-not-exist." 1156 "~&New file name: " 1131 "prompt for a new name." 880 "~S is not a valid value for :if-exists." 565 "File ~A already exists." 560 "write it anyway." 406 (CL:UNSIGNED-BYTE CL:SIGNED-BYTE (CL:UNSIGNED-BYTE 8) (CL:SIGNED-BYTE 8)) 222 (:IO :OUTPUT) 211 (:IO :INPUT) 191 "~S isn't an implemented element-type for open." 170 (CL:STRING-CHAR CL:SIGNED-BYTE CL:UNSIGNED-BYTE (CL:UNSIGNED-BYTE 8) (CL:SIGNED-BYTE 8) CL:CHARACTER :DEFAULT) 156 "~S isn't a valid direction for open." 145 (:INPUT :OUTPUT :IO :PROBE)) CL:CLOSE :D8 (L (0 |-args-|)) „ekaAHl»ºKJó²Ph¼I ²[I ²^IÊlåjðhð´IÊlðhð½I ¿L²3M²0I ¿°"Kdagð¥lÔ[° kØa° oI i(128 ERROR 93 DELFILE 88 CL:NAMESTRING 75 CLOSEF 34 OPENP 26 STREAMP) (104 :ABORT 60 STREAM 42 STREAM) ( 122 "Closing a non-stream") CL:STREAM-EXTERNAL-FORMAT :D8 (L (0 STREAM)) @ (5 \\EXTERNALFORMAT) NIL () CL:STREAM-ELEMENT-TYPE :D8 (L (0 STREAM)) gNIL (4 CL:UNSIGNED-BYTE) () CL:INPUT-STREAM-P :D8 (L (0 STREAM)) !@d ¨¿@ ¿@gi´i(27 \\IOMODEP 14 \\ILLEGAL.ARG 6 STREAMP) (21 INPUT) () CL:OUTPUT-STREAM-P :D8 (L (0 STREAM)) !@d ¨¿@ ¿@gi´i(27 \\IOMODEP 14 \\ILLEGAL.ARG 6 STREAMP) (21 OUTPUT) () XCL:OPEN-STREAM-P :D8 (L (0 STREAM)) @ ´@Êjðhð(5 STREAMP) (13 STREAM) () FILE-STREAM-POSITION :D8 (L (0 STREAM)) @ (5 GETFILEPTR) NIL () (CL::SET-SETF-INVERSE (QUOTE FILE-STREAM-POSITION) (QUOTE SETFILEPTR)) CL:MAKE-SYNONYM-STREAM :D8 (L (0 CL:SYMBOL)) õld` ¿d@¿@ ÈHdIÍ¿dkÏ0¿dnÿÿÍ5¿`HdIÍ4¿dh2¿d`.¿dg*¿dg&¿dg$¿dj¿dj¿dkÏ¿dkÏ¿dkÏ0¿djÍ¿dlÏ¿dh¿djÏ¿HdÉ Éhµg ¿Hdg ¿Hgi`H`ÉH(215 STREAMPROP 199 \\SETACCESS 185 \\EXTERNALFORMAT 22 CL:SYMBOL-VALUE) (236 FDEV 231 %SYNONYM-STREAM-DEVICE 225 FDEV 220 %SYNONYM-STREAM-DEVICE 209 XCL:SYNONYM-STREAM-P 194 BOTH 180 :DEFAULT 171 FDEV 105 \\STREAM.NOT.OPEN 96 \\STREAM.NOT.OPEN 87 \\EOSERROR 78 \\NOIMAGEOPS 57 \\STREAM.DEFAULT.MAXBUFFERS 27 STREAM 8 %SYNONYM-STREAM-DEVICE) () XCL:SYNONYM-STREAM-P :D8 (L (0 STREAM)) @g (10 STREAMPROP) (5 XCL:SYNONYM-STREAM-P) () XCL:SYNONYM-STREAM-SYMBOL :D8 (L (0 STREAM)) @ ´ @É(5 XCL:SYNONYM-STREAM-P) (13 STREAM) () XCL:FOLLOW-SYNONYM-STREAMS :D8 (L (0 STREAM)) @ ž@ b°í@(17 CL:SYMBOL-VALUE 12 XCL:SYNONYM-STREAM-SYMBOL 5 XCL:SYNONYM-STREAM-P) NIL () CL:MAKE-BROADCAST-STREAM :D8 (L (0 |-args-|)) eHk2JIó—KAI°&Ja½Lµ Mh\»JkÔZ°æM&¼°÷dg ¿µñld` ¿dI¿dkÏ0¿dnÿÿÍ5¿`ºdJÍ4¿dh2¿d`.¿dg*¿dg&¿dg$¿`»dKÍ¿dj¿dj¿dkÏ¿dkÏ¿dkÏ0¿djÍ¿dlÏ¿dh¿djÏ¿\dÉ Éhµg ¿Ldg ¿]giM(252 STREAMPROP 239 \\SETACCESS 226 \\EXTERNALFORMAT 54 \\GETSTREAM) (246 XCL:BROADCAST-STREAM-P 234 OUTPUT 221 :DEFAULT 212 FDEV 146 FILELINELENGTH 138 \\STREAM.NOT.OPEN 129 \\STREAM.NOT.OPEN 120 \\EOSERROR 111 \\NOIMAGEOPS 94 \\STREAM.DEFAULT.MAXBUFFERS 68 %BROADCAST-STREAM-DEVICE 49 OUTPUT) () XCL:BROADCAST-STREAM-P :D8 (L (0 STREAM)) @g (10 STREAMPROP) (5 XCL:BROADCAST-STREAM-P) () XCL:BROADCAST-STREAM-STREAMS :D8 (L (0 STREAM)) @ ´ @É(5 XCL:BROADCAST-STREAM-P) (13 STREAM) () CL:MAKE-CONCATENATED-STREAM :D8 (L (0 |-args-|)) eHk2JIó—KAI°&Ja½Lµ Mh\»JkÔZ°æM&¼°÷dg ¿µñld` ¿dI¿dkÏ0¿dnÿÿÍ5¿`ºdJÍ4¿dh2¿d`.¿dg*¿dg&¿dg$¿`»dKÍ¿dj¿dj¿dkÏ¿dkÏ¿dkÏ0¿djÍ¿dlÏ¿dh¿djÏ¿\dÉ Éhµg ¿Ldg ¿]giM(252 STREAMPROP 239 \\SETACCESS 226 \\EXTERNALFORMAT 54 \\GETSTREAM) (246 XCL:CONCATENATED-STREAM-P 234 INPUT 221 :DEFAULT 212 FDEV 146 FILELINELENGTH 138 \\STREAM.NOT.OPEN 129 \\STREAM.NOT.OPEN 120 \\EOSERROR 111 \\NOIMAGEOPS 94 \\STREAM.DEFAULT.MAXBUFFERS 68 %CONCATENATED-STREAM-DEVICE 49 INPUT) () XCL:CONCATENATED-STREAM-P :D8 (L (0 STREAM)) @g (10 STREAMPROP) (5 XCL:CONCATENATED-STREAM-P) () XCL:CONCATENATED-STREAM-STREAMS :D8 (L (0 STREAM)) @ ´ @É(5 XCL:CONCATENATED-STREAM-P) (13 STREAM) () CL:MAKE-TWO-WAY-STREAM :D8 (L (1 CL::OUTPUT-STREAM 0 CL::INPUT-STREAM)) @g bAg bld` ¿d@¿dA¿AÈHdIÍ¿dkÏ0¿dnÿÿÍ5¿`HdIÍ4¿dh2¿d`.¿dg*¿dg&¿dg$¿dj¿dj¿dkÏ¿dkÏ¿dkÏ0¿djÍ¿dlÏ¿dh¿djÏ¿HdÉ Éhµg ¿Hdg ¿Hgi`H`ÉH(241 STREAMPROP 225 \\SETACCESS 211 \\EXTERNALFORMAT 23 \\GETSTREAM 10 \\GETSTREAM) (262 FDEV 257 %TWO-WAY-STREAM-DEVICE 251 FDEV 246 %TWO-WAY-STREAM-DEVICE 235 XCL:TWO-WAY-STREAM-P 220 BOTH 206 :DEFAULT 197 FDEV 131 \\STREAM.NOT.OPEN 122 \\STREAM.NOT.OPEN 113 \\EOSERROR 104 \\NOIMAGEOPS 83 \\STREAM.DEFAULT.MAXBUFFERS 53 STREAM 34 %TWO-WAY-STREAM-DEVICE 18 OUTPUT 5 INPUT) () XCL:TWO-WAY-STREAM-P :D8 (L (0 STREAM)) @g (10 STREAMPROP) (5 XCL:TWO-WAY-STREAM-P) () XCL:TWO-WAY-STREAM-OUTPUT-STREAM :D8 (L (0 STREAM)) @ ´ @É(5 XCL:TWO-WAY-STREAM-P) (13 STREAM) () XCL:TWO-WAY-STREAM-INPUT-STREAM :D8 (L (0 STREAM)) @ ´ @É(5 XCL:TWO-WAY-STREAM-P) (13 STREAM) () CL:MAKE-ECHO-STREAM :D8 (L (1 CL::OUTPUT-STREAM 0 CL::INPUT-STREAM)) @g bAg bld` ¿d@¿dA¿AÈHdIÍ¿dkÏ0¿dnÿÿÍ5¿`HdIÍ4¿dh2¿d`.¿dg*¿dg&¿dg$¿dj¿dj¿dkÏ¿dkÏ¿dkÏ0¿djÍ¿dlÏ¿dh¿djÏ¿HdÉ Éhµg ¿Hdg ¿Hgi`H`ÉH(241 STREAMPROP 225 \\SETACCESS 211 \\EXTERNALFORMAT 23 \\GETSTREAM 10 \\GETSTREAM) (262 FDEV 257 %ECHO-STREAM-DEVICE 251 FDEV 246 %ECHO-STREAM-DEVICE 235 XCL:ECHO-STREAM-P 220 BOTH 206 :DEFAULT 197 FDEV 131 \\STREAM.NOT.OPEN 122 \\STREAM.NOT.OPEN 113 \\EOSERROR 104 \\NOIMAGEOPS 83 \\STREAM.DEFAULT.MAXBUFFERS 53 STREAM 34 %ECHO-STREAM-DEVICE 18 OUTPUT 5 INPUT) () XCL:ECHO-STREAM-P :D8 (L (0 STREAM)) @g (10 STREAMPROP) (5 XCL:ECHO-STREAM-P) () XCL:ECHO-STREAM-INPUT-STREAM :D8 (L (0 STREAM)) @ ´ @É(5 XCL:ECHO-STREAM-P) (13 STREAM) () XCL:ECHO-STREAM-OUTPUT-STREAM :D8 (L (0 STREAM)) @ ´ @É(5 XCL:ECHO-STREAM-P) (13 STREAM) () CL:MAKE-STRING-INPUT-STREAM :D8 (L (0 |-args-|)) =eka!lHñ‘j‚laºlHñ‘h‚la»jJÿ‘KšIJkÔK€Ig (58 OPENSTRINGSTREAM 46 SUBSTRING) (53 INPUT) () MAKE-CONCATENATED-STRING-INPUT-STREAM :D8 (L (0 STRINGS)) U@d²Q§@ gj0@°d ºKµJh\J&»µëL°dýnIkØYñ¨hl4 ¿µêIH(76 \\LISPERROR 35 CL:MAKE-STRING-INPUT-STREAM 12 CL:MAKE-STRING-INPUT-STREAM) (18 CL:MAKE-CONCATENATED-STREAM) () %MAKE-INITIAL-STRING-STREAM-CONTENTS :D8 NIL #ogggigj (32 CL:MAKE-ARRAY) (25 :FILL-POINTER 19 :EXTENDABLE 14 CL:STRING-CHAR 9 :ELEMENT-TYPE) ( 4 (256)) CL::|expand-WITH-OPEN-STREAM| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) …@qHYºI»HAh \½L¾_¿gJKhOohNgggMgOohgJgOhhh (128 CL:APPEND 39 GENSYM 27 \\MVLIST 22 PARSE-BODY) (110 :ABORT 104 CL:CLOSE 86 SETQ 79 PROGN 74 CL:MULTIPLE-VALUE-PROG1 69 CL:UNWIND-PROTECT 47 LET) ( 93 (NIL) 59 (T)) (SETF-MACRO-FUNCTION (QUOTE CL:WITH-OPEN-STREAM) (QUOTE CL::|expand-WITH-OPEN-STREAM|)) CL::|expand-WITH-INPUT-FROM-STRING| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @Ñ HYºI[¼K½gM ^d_¿Nhðhð_¿gM µ‚±ºj_¿gM ^d_¿HAh __¿O_¿Mo ggLhgOhhogJgggOhhOO²@É ²#@ÉH@H¿ ¿°Ç@É @ h(75 \\EOF.ACTION 55 CLOSEF 23 EOFP) (64 STREAM 44 STREAM 31 STREAM 15 STREAM 5 STREAM) () %CONCATENATED-STREAM-DEVICE-CLOSEFILE :D8 (P 0 \s I 0 |stream|) ,@h @ÉŒdH µò@h@(26 CLOSEF 6 \\SETACCESS) (37 STREAM 12 STREAM) () %CONCATENATED-STREAM-DEVICE-EOFP :D8 (I 0 |stream|) ?@É²4@É ´#@ÉH@H¿ ¿°Çi(55 CLOSEF 23 EOFP) (44 STREAM 31 STREAM 15 STREAM 5 STREAM) () %CONCATENATED-STREAM-DEVICE-PEEKBIN :D8 (I 1 |noErrorFlg?| I 0 |stream|) W@É²B@É ²#@ÉH@H¿ ¿°Ç@É A‘h@ h(83 \\EOF.ACTION 72 \\PEEKBIN 55 CLOSEF 23 EOFP) (64 STREAM 44 STREAM 31 STREAM 15 STREAM 5 STREAM) () %CONCATENATED-STREAM-DEVICE-BACKFILEPTR :D8 (I 0 |stream|) @É (13 \\BACKFILEPTR) (5 STREAM) () %CONCATENATED-STREAM-INCCODEFN :D8 (I 0 STREAM F 1 BYTECOUNTVAR F 2 BYTECOUNTVAL) U@É²D@É ²#@ÉH@H¿ ¿°Ç@ÉQR@ h(81 \\EOF.ACTION 74 \\INCCODE 55 CLOSEF 23 EOFP) (64 STREAM 44 STREAM 31 STREAM 15 STREAM 5 STREAM) () %CONCATENATED-STREAM-PEEKCCODEFN :D8 (I 0 STREAM F 1 BYTECOUNTVAR F 2 BYTECOUNTVAL) U@É²D@É ²#@ÉH@H¿ ¿°Ç@ÉQR@ h(81 \\EOF.ACTION 74 \\INCCODE 55 CLOSEF 23 EOFP) (64 STREAM 44 STREAM 31 STREAM 15 STREAM 5 STREAM) () %CONCATENATED-STREAM-BACKCCODEFN :D8 (I 0 STREAM F 1 BYTECOUNTVAR F 2 BYTECOUNTVAL) U@É²D@É ²#@ÉH@H¿ ¿°Ç@ÉQR@ h(81 \\EOF.ACTION 74 \\INCCODE 55 CLOSEF 23 EOFP) (64 STREAM 44 STREAM 31 STREAM 15 STREAM 5 STREAM) () %CONCATENATED-STREAM-DEVICE-CHARSETFN :D8 (L (2 DONTMARKFILE 1 NEWVALUE 0 STREAM)) )@ÉµjHÉ ÉH¹HABlINIL (28 FDEV 21 STREAM 5 STREAM) () %ECHO-STREAM-DEVICE-BIN :D8 (P 0 BYTE I 0 STREAM) @ @H H(15 \\BOUT 5 %TWO-WAY-STREAM-DEVICE-BIN) NIL () %ECHO-STREAM-INCCODEFN :D8 (I 2 BYTECOUNTVAL I 1 BYTECOUNTVAR I 0 STREAM) @dAB (13 %TWO-WAY-STREAM-OUTCHARFN 8 %TWO-WAY-STREAM-INCCODEFN) NIL () %SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM :D8 (L (0 SYNONYM-STREAM)) @ (10 CL:SYMBOL-VALUE 5 XCL:SYNONYM-STREAM-SYMBOL) NIL () %SYNONYM-STREAM-DEVICE-BIN :D8 (I 0 STREAM) @ (5 %SYNONYM-STREAM-DEVICE-GET-STREAM) NIL () %SYNONYM-STREAM-DEVICE-BOUT :D8 (I 1 BYTE I 0 STREAM) @ A (11 \\BOUT 5 %SYNONYM-STREAM-DEVICE-GET-STREAM) NIL () %SYNONYM-STREAM-DEVICE-EOFP :D8 (I 0 STREAM) @ HÉ É<¹HkI(5 %SYNONYM-STREAM-DEVICE-GET-STREAM) (21 FDEV 14 STREAM) () %SYNONYM-STREAM-DEVICE-FORCEOUTPUT :D8 (I 1 WAITFORFINISH I 0 STREAM) @ A (11 FORCEOUTPUT 5 %SYNONYM-STREAM-DEVICE-GET-STREAM) NIL () %SYNONYM-STREAM-DEVICE-GETFILEINFO :D8 (I 2 DEVICE I 1 ATTRIBUTE I 0 STREAM) @ A (11 GETFILEINFO 5 %SYNONYM-STREAM-DEVICE-GET-STREAM) NIL () %SYNONYM-STREAM-DEVICE-PEEKBIN :D8 (I 1 NOERRORFLG? I 0 STREAM) @ A (11 \\PEEKBIN 5 %SYNONYM-STREAM-DEVICE-GET-STREAM) NIL () %SYNONYM-STREAM-DEVICE-READP :D8 (I 1 FLG I 0 STREAM) @ A (11 READP 5 %SYNONYM-STREAM-DEVICE-GET-STREAM) NIL () %SYNONYM-STREAM-DEVICE-BACKFILEPTR :D8 (I 0 STREAM) @ (10 \\BACKFILEPTR 5 %SYNONYM-STREAM-DEVICE-GET-STREAM) NIL () %SYNONYM-STREAM-DEVICE-SETFILEINFO :D8 (I 3 DEVICE I 2 VALUE I 1 ATTRIBUTE I 0 STREAM) @ AB(12 SETFILEINFO 5 %SYNONYM-STREAM-DEVICE-GET-STREAM) NIL () %SYNONYM-STREAM-DEVICE-CHARSETFN :D8 (I 2 DONTMARKFILE I 1 NEWVALUE I 0 STREAM) "@ HÉ ÉH¹HABlI(5 %SYNONYM-STREAM-DEVICE-GET-STREAM) (21 FDEV 14 STREAM) () %SYNONYM-STREAM-DEVICE-CLOSEFILE :D8 (I 0 STREAM) *@h`@`É @(36 DREMOVE) (29 FDEV 24 %SYNONYM-STREAM-DEVICE 18 FDEV 13 %SYNONYM-STREAM-DEVICE 5 STREAM) () %SYNONYM-STREAM-DEVICE-GET-STREAM :D8 (I 0 |stream|) @É (12 CL:SYMBOL-VALUE) (5 STREAM) () %SYNONYM-STREAM-OUTCHARFN :D8 (P 0 OTHER-STREAM I 1 CHARCODE I 0 STREAM) !@ @HÊÏHA @HÈÍA(23 \\OUTCHAR 5 %SYNONYM-STREAM-DEVICE-GET-STREAM) NIL () %SYNONYM-STREAM-INCCODEFN :D8 (P 0 OTHER-STREAM I 2 BYTECOUNTVAL I 1 BYTECOUNTVAR I 0 STREAM) @ @HÊÏHAB(24 \\INCCODE 5 %SYNONYM-STREAM-DEVICE-GET-STREAM) NIL () %SYNONYM-STREAM-PEEKCCODEFN :D8 (P 1 A0191 P 0 OTHER-STREAM I 1 NOERROR I 0 STREAM) @ @HÊÏHÉ:¹HAlI(5 %SYNONYM-STREAM-DEVICE-GET-STREAM) NIL () %SYNONYM-STREAM-BACKCCODEFN :D8 (P 0 OTHER-STREAM I 2 BYTECOUNTVAL I 1 BYTECOUNTVAR I 0 STREAM) @ @HÊÏHAB(24 \\BACKCCODE 5 %SYNONYM-STREAM-DEVICE-GET-STREAM) NIL () %TWO-WAY-STREAM-BACKCCODEFN :D8 (I 2 BYTECOUNTVAL I 1 BYTECOUNTVAR I 0 STREAM) @ÉAB(14 \\BACKCCODE) (5 STREAM) () %TWO-WAY-STREAM-INCCODEFN :D8 (I 2 BYTECOUNTVAL I 1 BYTECOUNTVAR I 0 STREAM) @ÉAB(14 \\INCCODE) (5 STREAM) () %TWO-WAY-STREAM-OUTCHARFN :D8 (I 1 CHARCODE I 0 STREAM) @ÉA @dÉÈÍ¿(13 \\OUTCHAR) (5 STREAM) () %TWO-WAY-STREAM-PEEKCCODEFN :D8 (P 0 A0192 I 1 NOERROR I 0 STREAM) @ÉÉ:@ÉAlHNIL (18 STREAM 5 STREAM) () %TWO-WAY-STREAM-DEVICE-BIN :D8 (I 0 |stream|) @É NIL (5 STREAM) () %TWO-WAY-STREAM-DEVICE-INPUTSTREAM :D8 (I 0 |stream|) @ÉNIL (5 STREAM) () %TWO-WAY-STREAM-DEVICE-BOUT :D8 (I 1 BYTE I 0 STREAM) @ÉA (13 \\BOUT) (5 STREAM) () %TWO-WAY-STREAM-DEVICE-OUTPUTSTREAM :D8 (I 1 BYTE I 0 STREAM) @ÉNIL (5 STREAM) () %TWO-WAY-STREAM-DEVICE-OUTCHARFN :D8 (I 1 CHARCODE I 0 STREAM) @ÉA @dÉÈHIÍI(13 \\OUTCHAR) (5 STREAM) () %TWO-WAY-STREAM-DEVICE-CLOSEFILE :D8 (P 0 STREAMDEVICE I 0 |stream|) a@ •`„`@h @É @h@É @hH@HÉ @(91 DREMOVE 62 CLOSEF? 40 CLOSEF? 27 \\SETACCESS 5 XCL:TWO-WAY-STREAM-P) (84 FDEV 77 FDEV 68 STREAM 55 STREAM 46 STREAM 33 STREAM 17 %ECHO-STREAM-DEVICE 11 %TWO-WAY-STREAM-DEVICE) () %TWO-WAY-STREAM-DEVICE-EOFP :D8 (I 0 |stream|) !@ÉHÉ É<¹HkINIL (23 FDEV 16 STREAM 5 STREAM) () %TWO-WAY-STREAM-DEVICE-READP :D8 (I 1 FLG I 0 STREAM) @ÉA (13 READP) (5 STREAM) () %TWO-WAY-STREAM-DEVICE-BACKFILEPTR :D8 (I 0 STREAM) @É (12 \\BACKFILEPTR) (5 STREAM) () %TWO-WAY-STREAM-DEVICE-FORCEOUTPUT :D8 (I 1 |waitForFinish?| I 0 |stream|) @ÉA (13 FORCEOUTPUT) (5 STREAM) () %TWO-WAY-STREAM-DEVICE-PEEKBIN :D8 (I 1 |noErrorFlg?| I 0 |stream|) @ÉA (13 \\PEEKBIN) (5 STREAM) () %TWO-WAY-STREAM-DEVICE-CHARSETFN :D8 (I 2 DONTMARKFILE I 1 NEWVALUE I 0 STREAM) $@ÉHÉ ÉH¹HABlINIL (23 FDEV 16 STREAM 5 STREAM) () %FILL-POINTER-STREAM-DEVICE-CLOSEFILE :D8 (L (1 ABORTFLAG 0 STREAM)) @h@NIL (5 STREAM) () %FILL-POINTER-STREAM-DEVICE-GETFILEPTR :D8 (L (0 STREAM)) @É (12 CL:LENGTH) (5 STREAM) () (CL:PROCLAIM (QUOTE (CL:SPECIAL *DEBUG-IO*))) (CL:PROCLAIM (QUOTE (CL:SPECIAL *QUERY-IO*))) (CL:PROCLAIM (QUOTE (CL:SPECIAL *TERMINAL-IO*))) (CL:PROCLAIM (QUOTE (CL:SPECIAL *ERROR-OUTPUT*))) (CL:PROCLAIM (QUOTE (CL:SPECIAL *STANDARD-OUTPUT*))) (CL:PROCLAIM (QUOTE (CL:SPECIAL *STANDARD-INPUT*))) %INITIALIZE-STANDARD-STREAMS :D8 (F 0 *QUERY-IO* F 1 *DEBUG-IO* F 2 *TERMINAL-IO* F 3 *ERROR-OUTPUT*) /g g cdcdcg c(42 CL:MAKE-SYNONYM-STREAM 24 CL:MAKE-TWO-WAY-STREAM 19 CL:MAKE-SYNONYM-STREAM 9 CL:MAKE-SYNONYM-STREAM) (37 \\TERM.OFD 14 \\TERM.OFD 4 \\LINEBUF.OFD) () %INITIALIZE-CLSTREAM-TYPES :D8 (F 0 *DEFAULT-EXTERNALFORMAT*) pggddg `dg¿djÏ¿djÏ¿dkÏ ¿djÏp¿djÏ0¿djÏ@¿djÏP¿djÏ`¿dh¿dg¿dg ¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg,¿dg.¿dg0¿dg:¿dg<¿dg>¿dg@¿dgB¿dgD¿dgF¿dgH¿dgh¿dgR¿dgP¿dgN¿dg*¿dg ¿dg¿dg¿ggggg `dg¿djÏ¿djÏ¿dkÏ ¿djÏp¿djÏ0¿djÏ@¿djÏP¿djÏ`¿dh¿dg¿dg ¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg,¿dg.¿dg0¿dg:¿dgT¿dg<¿dg>¿dg@¿dgB¿dgD¿dgF¿dgH¿dgh¿dgR¿dgP¿dgN¿dg*¿dg ¿dg¿dg¿ggggg `dg¿djÏ¿djÏ¿dkÏ ¿djÏp¿djÏ0¿djÏ@¿djÏP¿djÏ`¿dkÏ ¿dkÏ0¿dh¿dg¿dg ¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg,¿dg.¿dg0¿dg:¿dgT¿dg<¿dg>¿dg@¿dgB¿dgD¿dgF¿dgH¿dgJ¿dgL¿dgh¿dgR¿dgP¿dgN¿dg*¿dg ¿dg¿dg¿ggggg `` dg¿dg,¿dgh¿ggggg `dg¿djÏ¿djÏ¿dkÏ ¿djÏp¿djÏ0¿djÏ@¿djÏP¿djÏ`¿dh¿dkÏ ¿dkÏ0¿dg¿dg ¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg,¿dg.¿dg0¿dg:¿dgT¿dg<¿dg>¿dg@¿dgB¿dgD¿dgF¿dgJ¿dgL¿dgH¿dgh¿dgR¿dgP¿dgN¿dg*¿dg ¿dg¿dg¿`dg¿djÏ¿djÏ¿dkÏ ¿djÏp¿djÏ0¿djÏ@¿djÏP¿djÏ`¿dh¿dg¿dg ¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg,¿dg.¿dg0¿dg:¿dg<¿dg>¿dg@¿dgB¿dgN¿dgF¿dPh¿dgR¿dgP¿dgH¿dg*¿dg ¿dg¿dg¿(1216 MAKE-EXTERNALFORMAT 1153 NCREATE2 1138 MAKE-EXTERNALFORMAT 743 MAKE-EXTERNALFORMAT 378 MAKE-EXTERNALFORMAT 22 MAKE-EXTERNALFORMAT) (1901 \\FILL-POINTER-STREAM-DEVICE 1893 NILL 1884 NILL 1875 NILL 1866 NILL 1857 \\GENERIC.CHARSET 1848 \\IS.NOT.RANDACCESSP 1839 \\IS.NOT.RANDACCESSP 1825 \\ILLEGAL.DEVICEOP 1816 %FILL-POINTER-STREAM-DEVICE-GETFILEPTR 1807 NILL 1798 \\GENERIC.BOUTS 1789 \\ILLEGAL.DEVICEOP 1780 NILL 1771 \\ILLEGAL.DEVICEOP 1762 \\ILLEGAL.DEVICEOP 1753 NILL 1744 \\ILLEGAL.DEVICEOP 1735 NILL 1726 \\GENERATENOFILES 1717 NILL 1708 NILL 1699 %FILL-POINTER-STREAM-DEVICE-CLOSEFILE 1690 NILL 1681 NILL 1672 NILL 1663 NILL 1654 NILL 1592 FILL-POINTER-STREAM-DEVICE 1585 |FDEVTYPE#| 1580 %SYNONYM-STREAM-DEVICE 1572 NILL 1563 NILL 1554 NILL 1545 NILL 1536 \\ILLEGAL.DEVICEOP 1527 \\IS.NOT.RANDACCESSP 1518 \\IS.NOT.RANDACCESSP 1509 :SYNONYM-STREAM 1500 %SYNONYM-STREAM-DEVICE-CHARSETFN 1491 %SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM 1482 %SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM 1473 %SYNONYM-STREAM-DEVICE-SETFILEINFO 1464 %SYNONYM-STREAM-DEVICE-GETFILEINFO 1455 %SYNONYM-STREAM-DEVICE-FORCEOUTPUT 1446 \\GENERIC.BOUTS 1437 \\GENERIC.BINS 1428 %SYNONYM-STREAM-DEVICE-EOFP 1419 %SYNONYM-STREAM-DEVICE-BACKFILEPTR 1410 %SYNONYM-STREAM-DEVICE-READP 1401 %SYNONYM-STREAM-DEVICE-PEEKBIN 1392 %SYNONYM-STREAM-DEVICE-BOUT 1383 %SYNONYM-STREAM-DEVICE-BIN 1374 NILL 1365 \\GENERATENOFILES 1356 NILL 1347 NILL 1338 %SYNONYM-STREAM-DEVICE-CLOSEFILE 1329 NILL 1320 NILL 1311 NILL 1302 NILL 1228 SYNONYM-STREAM-DEVICE 1221 |FDEVTYPE#| 1210 %SYNONYM-STREAM-OUTCHARFN 1205 %SYNONYM-STREAM-BACKCCODEFN 1200 %SYNONYM-STREAM-PEEKCCODEFN 1195 %SYNONYM-STREAM-INCCODEFN 1190 :SYNONYM-STREAM 1185 %ECHO-STREAM-DEVICE 1177 :ECHO-STREAM-FORMAT 1168 %ECHO-STREAM-DEVICE-BIN 1159 ECHO-STREAM-DEVICE 1148 %TWO-WAY-STREAM-DEVICE 1143 |FDEVTYPE#| 1132 %TWO-WAY-STREAM-OUTCHARFN 1127 %TWO-WAY-STREAM-BACKCCODEFN 1122 %TWO-WAY-STREAM-PEEKCCODEFN 1117 %ECHO-STREAM-INCCODEFN 1112 :ECHO-STREAM-FORMAT 1107 %TWO-WAY-STREAM-DEVICE 1099 NILL 1090 NILL 1081 NILL 1072 NILL 1063 \\ILLEGAL.DEVICEOP 1054 \\IS.NOT.RANDACCESSP 1045 \\IS.NOT.RANDACCESSP 1036 :TWO-WAY-STREAM-FORMAT 1027 %TWO-WAY-STREAM-DEVICE-OUTPUTSTREAM 1018 %TWO-WAY-STREAM-DEVICE-INPUTSTREAM 1009 %TWO-WAY-STREAM-DEVICE-CHARSETFN 1000 NILL 991 NILL 982 %TWO-WAY-STREAM-DEVICE-FORCEOUTPUT 973 \\GENERIC.BOUTS 964 \\GENERIC.BINS 955 %TWO-WAY-STREAM-DEVICE-EOFP 946 %TWO-WAY-STREAM-DEVICE-BACKFILEPTR 937 %TWO-WAY-STREAM-DEVICE-READP 928 %TWO-WAY-STREAM-DEVICE-PEEKBIN 919 %TWO-WAY-STREAM-DEVICE-BOUT 910 %TWO-WAY-STREAM-DEVICE-BIN 901 NILL 892 \\GENERATENOFILES 883 NILL 874 NILL 865 %TWO-WAY-STREAM-DEVICE-CLOSEFILE 856 NILL 847 NILL 838 NILL 829 NILL 755 TWO-WAY-STREAM-DEVICE 748 |FDEVTYPE#| 737 %TWO-WAY-STREAM-OUTCHARFN 732 %TWO-WAY-STREAM-BACKCCODEFN 727 %TWO-WAY-STREAM-PEEKCCODEFN 722 %TWO-WAY-STREAM-INCCODEFN 717 :TWO-WAY-STREAM-FORMAT 712 %CONCATENATED-STREAM-DEVICE 704 NILL 695 NILL 686 NILL 677 NILL 668 \\ILLEGAL.DEVICEOP 659 \\IS.NOT.RANDACCESSP 650 \\IS.NOT.RANDACCESSP 641 :CONCATENATED-STREAM-FORMAT 632 %CONCATENATED-STREAM-DEVICE-CHARSETFN 623 NILL 614 NILL 605 NILL 596 NILL 587 \\GENERIC.BINS 578 %CONCATENATED-STREAM-DEVICE-EOFP 569 %CONCATENATED-STREAM-DEVICE-BACKFILEPTR 560 \\GENERIC.READP 551 %CONCATENATED-STREAM-DEVICE-PEEKBIN 542 NILL 533 %CONCATENATED-STREAM-DEVICE-BIN 524 NILL 515 \\GENERATENOFILES 506 NILL 497 NILL 488 %CONCATENATED-STREAM-DEVICE-CLOSEFILE 479 NILL 470 NILL 461 NILL 452 NILL 390 CONCATENATED-STREAM-DEVICE 383 |FDEVTYPE#| 372 SHOULDNT 367 %CONCATENATED-STREAM-BACKCCODEFN 362 %CONCATENATED-STREAM-PEEKCCODEFN 357 %CONCATENATED-STREAM-INCCODEFN 352 :CONCATENATED-STREAM-FORMAT 347 %BROADCAST-STREAM-DEVICE 339 NILL 330 NILL 321 NILL 312 NILL 303 \\ILLEGAL.DEVICEOP 294 \\IS.NOT.RANDACCESSP 285 \\IS.NOT.RANDACCESSP 276 :BROADCAST-STREAM-FORMAT 267 %BROADCAST-STREAM-DEVICE-CHARSETFN 258 NILL 249 NILL 240 %BROADCAST-STREAM-DEVICE-FORCEOUTPUT 231 NILL 222 \\GENERIC.BINS 213 TRUE 204 NILL 195 NILL 186 %BROADCAST-STREAM-DEVICE-BOUT 177 NILL 168 NILL 159 \\GENERATENOFILES 150 NILL 141 NILL 132 %BROADCAST-STREAM-DEVICE-CLOSEFILE 123 NILL 114 NILL 105 NILL 96 NILL 34 BROADCAST-STREAM-DEVICE 27 |FDEVTYPE#| 16 %BROADCAST-STREAM-OUTCHARFN 9 SHOULDNT 4 :BROADCAST-STREAM-FORMAT) () (%INITIALIZE-CLSTREAM-TYPES) (%INITIALIZE-STANDARD-STREAMS) (PUTPROPS CLSTREAMS FILETYPE CL:COMPILE-FILE) NIL