(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "29-Oct-93 08:38:04" ("compiled on " |{DSK}export>lispcore>sources>CLTL2>CLSTREAMS.;1|) "19-Feb-93 17:03:08" "COMPILE-FILEd" |in| "Medley 19-Feb-93 ..." |dated| "19-Feb-93 18:20:42") (FILECREATED "18-Oct-93 10:05:08" "{Pele:mv:envos}Sources>CLTL2>CLSTREAMS.;2" 60585 |previous| |date:| "13-Apr-92 16:18:18" "{Pele:mv:envos}Sources>CLTL2>CLSTREAMS.;1") (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 CL:OPEN-STREAM-P) (COMS (FUNCTIONS FILE-STREAM-POSITION) (SETFS FILE-STREAM-POSITION)) (* |;;| "Random support for stream types (types defined in CMLTYPES)") (FUNCTIONS XCL:STRING-STREAM-P CL::FILE-STREAM-P) (FUNCTIONS CL:MAKE-SYNONYM-STREAM XCL:SYNONYM-STREAM-P CL:SYNONYM-STREAM-SYMBOL XCL:FOLLOW-SYNONYM-STREAMS) (FUNCTIONS CL:MAKE-BROADCAST-STREAM XCL:BROADCAST-STREAM-P CL:BROADCAST-STREAM-STREAMS) (FUNCTIONS CL:MAKE-CONCATENATED-STREAM XCL:CONCATENATED-STREAM-P CL:CONCATENATED-STREAM-STREAMS) (FUNCTIONS CL:MAKE-TWO-WAY-STREAM XCL:TWO-WAY-STREAM-P CL:TWO-WAY-STREAM-OUTPUT-STREAM CL:TWO-WAY-STREAM-INPUT-STREAM) (FUNCTIONS CL:MAKE-ECHO-STREAM XCL:ECHO-STREAM-P CL:ECHO-STREAM-INPUT-STREAM CL: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))) (COMS (* |;;| "methods for the special devices") (FNS %BROADCAST-STREAM-DEVICE-BOUT %BROADCAST-STREAM-DEVICE-OUTCHARFN %BROADCAST-STREAM-DEVICE-CLOSEFILE %BROADCAST-STREAM-DEVICE-FORCEOUTPUT) (FUNCTIONS %BROADCAST-STREAM-DEVICE-CHARSETFN) (FNS %CONCATENATED-STREAM-DEVICE-BIN %CONCATENATED-STREAM-DEVICE-CLOSEFILE %CONCATENATED-STREAM-DEVICE-EOFP %CONCATENATED-STREAM-DEVICE-PEEKBIN %CONCATENATED-STREAM-DEVICE-BACKFILEPTR) (FUNCTIONS %CONCATENATED-STREAM-DEVICE-CHARSETFN) (FNS %ECHO-STREAM-DEVICE-BIN) (FUNCTIONS %SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM) (FNS %SYNONYM-STREAM-DEVICE-BIN %SYNONYM-STREAM-DEVICE-BOUT %SYNONYM-STREAM-DEVICE-OUTCHARFN %SYNONYM-STREAM-DEVICE-CLOSEFILE %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) (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) (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 (* |;;| "helper stuff") (FNS %SYNONYM-STREAM-DEVICE-GET-STREAM)) (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 30 *QUERY-IO*) QekañpHl»ºKJó¢±Èg¼Hl¾½NdMó¢±Ì¿g_¿i_¿Hl_¿_¿OdOó¢±Ã¿h__¿i_¿Hl_¿_¿OdOó¢±¿¿h__¿Hl_"¿_ ¿O"dO ó¢±¿¿g_$¿Lo «oL ¿Oogg¬oO ¿Id ¢±‰¿I ±„Kdagð¦lÔ[±ÿ'kØa±ÿ,agð–NkØa±ÿ1NlÔ^±ÿagð—OkØa±ÿ7OlÔ_±ÿ!agð—OkØa±ÿ;OlÔ_±ÿ%agð—O"kØa±ÿ=O"lÔ_"±ÿ% Lo Lo Ldgð—¿g°gð•gLgð´gOogg•g„gO³O0 gð•g„g_¿O³,Ogð©Ldgð–¿ggð‘h„g_¿O0 _. _,¿O.¢±2O4¢±YOdgð²;¿ooO,¿O,O6hgO8hgO$hh_:±úgð³!Ogð³Ogð«Odgð²-¿O0O6ggO8hgO$hh_:±©gð²+O,O6ggO8hgO$hh_:°wOdgð²z¿Lgð².O,gggO8hgO$hh_:°3O,gggO8hgO$hh_:mÿ ¿O:giO:¡hoO±ÅO2²+O,O6ggO8hgO$hh_:°ºlO, _&¿dO&¿dnÿÿÍ5¿`_(¿dO(Í4¿dh2¿d`.¿dg*¿dg(¿dg&¿dg$¿`_*¿dO*Í¿dj¿dj¿djÏ0¿djÏ¿dkÏ¿dkÏ0¿djÍ¿dlÏ¿dh¿djÏ¿_:±ÿO4¢±…Odgð²8¿oggO0¿WgJggNhhOgOgJhh h gJoOgOgJhh h (213 CL:APPEND 205 CL:APPEND 165 CL:APPEND 157 CL:APPEND 102 CL:APPEND 72 KEYWORD-TEST 48 \\MVLIST 43 PARSE-BODY 30 FIND-KEYWORD) (194 CL:GET-OUTPUT-STREAM-STRING 187 PROGN 173 CL:WITH-OPEN-STREAM 146 CL:GET-OUTPUT-STREAM-STRING 139 PROGN 124 :ELEMENT-TYPE 119 CL:MAKE-STRING-OUTPUT-STREAM 113 CL:WITH-OPEN-STREAM 86 MAKE-FILL-POINTER-OUTPUT-STREAM 80 CL:WITH-OPEN-STREAM 24 :ELEMENT-TYPE) ( 179 ((CL:MAKE-STRING-OUTPUT-STREAM)) 67 (:ELEMENT-TYPE)) (SETF-MACRO-FUNCTION (QUOTE CL:WITH-OUTPUT-TO-STRING) (QUOTE CL::|expand-WITH-OUTPUT-TO-STRING|)) CL::|expand-WITH-OPEN-FILE| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) Š@qHYºI»HAh \½L¾_¿gJgKhOohNgggMgOohgJgOhhh (133 CL:APPEND 38 GENSYM 26 \\MVLIST 21 PARSE-BODY) (115 :ABORT 109 CL:CLOSE 91 SETQ 84 PROGN 79 CL:MULTIPLE-VALUE-PROG1 74 CL:UNWIND-PROTECT 52 OPEN 46 LET) ( 98 (#:NIL) 64 (T)) (SETF-MACRO-FUNCTION (QUOTE CL:WITH-OPEN-FILE) (QUOTE CL::|expand-WITH-OPEN-FILE|)) CL:MAKE-STRING-OUTPUT-STREAM :D8 (L (0 |-args-|)) /eHkJIó›g Jdagð¥lÔZ°ãkØa°æ(23 MAKE-FILL-POINTER-OUTPUT-STREAM) (32 :ELEMENT-TYPE 17 CL:STRING-CHAR) () CL::|definline-MAKE-STRING-OUTPUT-STREAM| :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oH#:NIL #:NIL ( 9 (CL:LAMBDA (&KEY (CL::ELEMENT-TYPE (QUOTE CL:STRING-CHAR))) (CL:BLOCK CL:MAKE-STRING-OUTPUT-STREAM (LET ((STREAM (MAKE-FILL-POINTER-OUTPUT-STREAM CL::ELEMENT-TYPE))) STREAM)))) (PUTPROP (QUOTE CL:MAKE-STRING-OUTPUT-STREAM) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::|definline-MAKE-STRING-OUTPUT-STREAM|) (GET (QUOTE CL:MAKE-STRING-OUTPUT-STREAM) (QUOTE COMPILER:OPTIMIZER-LIST)))) MAKE-FILL-POINTER-OUTPUT-STREAM :D8 (L (0 |-args-|)) ekHñ•ka1Id §¿I Y ¦I ld` ¿dI¿do,¿dnÿÿÍ5¿`ºdJÍ4¿dh2¿d`.¿dg*¿dg(¿dg&¿dg$¿`»dKÍ¿dj¿dj¿djÏ0¿djÏ¿dkÏ¿dkÏ0¿djÍ¿dlÏ¿dh¿djÏ¿dg ¿\I •g„g(Lg&L(233 EXTENDABLE-ARRAY-P 220 \\SETACCESS 46 \\ILLEGAL.ARG 39 CL:ARRAY-HAS-FILL-POINTER-P 33 %MAKE-INITIAL-STRING-STREAM-CONTENTS 25 STRINGP 12 %MAKE-INITIAL-STRING-STREAM-CONTENTS) (258 \\OUTCHAR 253 STREAM 245 \\STRING-STREAM-OUTCHARFN 239 \\ADJUSTABLE-STRING-STREAM-OUTCHARFN 227 STREAM 215 OUTPUT 146 FILELINELENGTH 138 \\STREAM.NOT.OPEN 129 \\STREAM.NOT.OPEN 120 \\FILEOUTCHARFN 111 \\EOSERROR 102 \\NOIMAGEOPS 85 \\STREAM.DEFAULT.MAXBUFFERS 56 \\FILL-POINTER-STREAM-DEVICE) ( 70 (STRING-OUTPUT-STREAM T XCL:STRING-STREAM-P T)) CL:GET-OUTPUT-STREAM-STRING :D8 (L (0 STRING-OUTPUT-STREAM)) 1@dg ¬¿o@ É@¿(43 %MAKE-INITIAL-STRING-STREAM-CONTENTS 24 ERROR 11 STREAMPROP) (38 STREAM 30 STREAM 6 STRING-OUTPUT-STREAM) ( 18 "Stream not a string-output-stream") \\STRING-STREAM-OUTCHARFN :D8 (L (1 CHAR 0 STREAM)) I@È@ÈÙjð¤Al ð—@j@@ÈkÔÍ¿A @É (70 CL:VECTOR-PUSH 57 CL:CHARACTER) (63 STREAM 44 STREAM 38 STREAM 30 STREAM 13 STREAM 5 STREAM) () \\ADJUSTABLE-STRING-STREAM-OUTCHARFNA0001 :D8 (F 0 XCL:*CURRENT-CONDITION*) PÃ#:NIL (5 END-OF-FILE) () \\ADJUSTABLE-STRING-STREAM-OUTCHARFNA0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 STREAM F 3 A3250) #i@ggR cg(25 \\MVLIST 20 CL:ERROR) (32 :NORMAL 14 :STREAM 9 END-OF-FILE) () \\ADJUSTABLE-STRING-STREAM-OUTCHARFN :D8 (L (1 CHAR) P 5 *PROCEED-CASES* P 4 A3250 I 0 STREAM F 6 *DEFAULT-PUSH-EXTENSION-SIZE* F 7 *PROCEED-CASES*) à@ÉA "@È@ÈÙjð¤Al ð—@j@@ÈkÔÍ¿IH ’±H ºnÿýJó³^gggjgggo WM dgð•¿L$jð´3I@É HJdâ[Vó‘K€VÔdnÿýó“¿nÿý IH h(219 CL:VECTOR-PUSH 212 CL:ADJUST-ARRAY 184 CL:VECTOR-PUSH 150 \\ADJUSTABLE-STRING-STREAM-OUTCHARFNA0002 138 MAKE-PROCEED-CASE 85 CL:ARRAY-TOTAL-SIZE 75 CL:VECTOR-PUSH 13 CL:CHARACTER) (177 STREAM 157 :NORMAL 127 :REPORT 122 \\ADJUSTABLE-STRING-STREAM-OUTCHARFNA0001 117 :TEST 111 :SELECTOR 106 SI::RETRY-OUTCHAR 101 :NAME 61 STREAM 55 STREAM 47 STREAM 30 STREAM 22 STREAM 5 STREAM) ( 132 "VECTOR-PUSH the character anyway") %NEW-FILE :D8 (L (0 FILENAME)) @gg (20 CLOSEF 15 OPENSTREAM) (10 NEW 5 OUTPUT) () PREDICT-NAME :D8 (L (0 PATHNAME)) @ d” (12 CL:NAMESTRING 5 CL:PROBE-FILE) #:NIL () %BROADCAST-STREAM-DEVICE-BOUT :D8 (P 0 S I 1 BYTE I 0 STREAM) @ÉdHA µñA(20 \\BOUT) (5 STREAM) () %BROADCAST-STREAM-DEVICE-OUTCHARFN :D8 (P 1 A3251 P 0 S I 1 CHARCODE I 0 STREAM) >@É°dHÉ(¹HAlIµé@@ÉÈÍA#:NIL (54 STREAM 46 STREAM 40 STREAM 20 STREAM 5 STREAM) () %BROADCAST-STREAM-DEVICE-CLOSEFILE :D8 (I 0 STREAM) @h @h@(6 \\SETACCESS) (12 STREAM) () %BROADCAST-STREAM-DEVICE-FORCEOUTPUT :D8 (P 0 S I 1 |waitForFinish?| I 0 |stream|) @ÉdHA µñh(20 FORCEOUTPUT) (5 STREAM) () %BROADCAST-STREAM-DEVICE-CHARSETFN :D8 (L (1 NEWVALUE 0 STREAM)) /@É1HµIZÉ ÉH»JAlK¹HX°à#:NIL (30 FDEV 23 STREAM 5 STREAM) () %CONCATENATED-STREAM-DEVICE-BIN :D8 (I 0 STREAM) O@É²>@É ²#@É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-DEVICE-CHARSETFN :D8 (L (1 NEWVALUE 0 STREAM)) (@ÉµjHÉ ÉH¹HAlI#:NIL (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 () %SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM :D8 (L (0 SYNONYM-STREAM)) @ (10 CL:SYMBOL-VALUE 5 CL: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-OUTCHARFN :D8 (P 1 A3254 P 0 OTHER-STREAM I 1 CHARCODE I 0 STREAM) #@ !HÉ(¹HAlI¿@HÈZÍJ(5 %SYNONYM-STREAM-DEVICE-GET-STREAM) (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-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 1 NEWVALUE I 0 STREAM) !@ HÉ ÉH¹HAlI(5 %SYNONYM-STREAM-DEVICE-GET-STREAM) (21 FDEV 14 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) +@ÉHÉ(¹HAlI@dÉÈHIÍI#:NIL (16 STREAM 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É É<¹HkI#:NIL (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 1 NEWVALUE I 0 STREAM) #@ÉHÉ ÉH¹HAlI#:NIL (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) () %SYNONYM-STREAM-DEVICE-GET-STREAM :D8 (I 0 |stream|) @É (12 CL:SYMBOL-VALUE) (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 #:NIL Œ`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¿dg8¿dg6¿dg4¿dg2¿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.¿dg0¿dg:¿dgT¿dg<¿dg>¿dg@¿dgB¿dgD¿dgF¿dgH¿dgh¿dgR¿dgP¿dgN¿dg8¿dg6¿dg4¿dg2¿dg*¿dg ¿dg¿dg¿`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¿dg8¿dg6¿dg4¿dg2¿dg*¿dg ¿dg¿dg¿`` dg¿dg,¿`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¿dg8¿dg6¿dg4¿dg2¿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¿dgh¿dgR¿dgP¿dgH¿dg8¿dg6¿dg4¿dg2¿dg*¿dg ¿dg¿dg¿(1145 NCREATE2) (1929 \\FILL-POINTER-STREAM-DEVICE 1921 NILL 1912 NILL 1903 NILL 1894 NILL 1885 \\GENERIC.READCHAR 1876 \\GENERIC.WRITECHAR 1867 \\GENERIC.PEEKCHAR 1858 \\GENERIC.UNREADCHAR 1849 \\GENERIC.CHARSET 1840 \\IS.NOT.RANDACCESSP 1831 \\IS.NOT.RANDACCESSP 1822 \\GENERIC.READCCODE 1813 \\ILLEGAL.DEVICEOP 1804 %FILL-POINTER-STREAM-DEVICE-GETFILEPTR 1795 NILL 1786 \\GENERIC.BOUTS 1777 \\ILLEGAL.DEVICEOP 1768 NILL 1759 \\ILLEGAL.DEVICEOP 1750 \\ILLEGAL.DEVICEOP 1741 NILL 1732 \\ILLEGAL.DEVICEOP 1723 NILL 1714 \\GENERATENOFILES 1705 NILL 1696 NILL 1687 %FILL-POINTER-STREAM-DEVICE-CLOSEFILE 1678 NILL 1669 NILL 1660 NILL 1651 NILL 1642 NILL 1580 FILL-POINTER-STREAM-DEVICE 1573 |FDEVTYPE#| 1568 %SYNONYM-STREAM-DEVICE 1560 NILL 1551 NILL 1542 NILL 1533 NILL 1524 \\GENERIC.READCHAR 1515 \\GENERIC.WRITECHAR 1506 \\GENERIC.PEEKCHAR 1497 \\GENERIC.UNREADCHAR 1488 \\ILLEGAL.DEVICEOP 1479 \\IS.NOT.RANDACCESSP 1470 \\IS.NOT.RANDACCESSP 1461 \\GENERIC.READCCODE 1452 %SYNONYM-STREAM-DEVICE-CHARSETFN 1443 %SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM 1434 %SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM 1425 %SYNONYM-STREAM-DEVICE-SETFILEINFO 1416 %SYNONYM-STREAM-DEVICE-GETFILEINFO 1407 %SYNONYM-STREAM-DEVICE-FORCEOUTPUT 1398 \\GENERIC.BOUTS 1389 \\GENERIC.BINS 1380 %SYNONYM-STREAM-DEVICE-EOFP 1371 %SYNONYM-STREAM-DEVICE-BACKFILEPTR 1362 %SYNONYM-STREAM-DEVICE-READP 1353 %SYNONYM-STREAM-DEVICE-PEEKBIN 1344 %SYNONYM-STREAM-DEVICE-BOUT 1335 %SYNONYM-STREAM-DEVICE-BIN 1326 NILL 1317 \\GENERATENOFILES 1308 NILL 1299 NILL 1290 %SYNONYM-STREAM-DEVICE-CLOSEFILE 1281 NILL 1272 NILL 1263 NILL 1254 NILL 1180 SYNONYM-STREAM-DEVICE 1173 |FDEVTYPE#| 1168 %ECHO-STREAM-DEVICE 1160 %ECHO-STREAM-DEVICE-BIN 1151 ECHO-STREAM-DEVICE 1140 %TWO-WAY-STREAM-DEVICE 1135 |FDEVTYPE#| 1130 %TWO-WAY-STREAM-DEVICE 1122 NILL 1113 NILL 1104 NILL 1095 NILL 1086 \\GENERIC.READCHAR 1077 \\GENERIC.WRITECHAR 1068 \\GENERIC.PEEKCHAR 1059 \\GENERIC.UNREADCHAR 1050 \\ILLEGAL.DEVICEOP 1041 \\IS.NOT.RANDACCESSP 1032 \\IS.NOT.RANDACCESSP 1023 \\GENERIC.READCCODE 1014 %TWO-WAY-STREAM-DEVICE-OUTPUTSTREAM 1005 %TWO-WAY-STREAM-DEVICE-INPUTSTREAM 996 %TWO-WAY-STREAM-DEVICE-CHARSETFN 987 NILL 978 NILL 969 %TWO-WAY-STREAM-DEVICE-FORCEOUTPUT 960 \\GENERIC.BOUTS 951 \\GENERIC.BINS 942 %TWO-WAY-STREAM-DEVICE-EOFP 933 %TWO-WAY-STREAM-DEVICE-BACKFILEPTR 924 %TWO-WAY-STREAM-DEVICE-READP 915 %TWO-WAY-STREAM-DEVICE-PEEKBIN 906 %TWO-WAY-STREAM-DEVICE-BOUT 897 %TWO-WAY-STREAM-DEVICE-BIN 888 NILL 879 \\GENERATENOFILES 870 NILL 861 NILL 852 %TWO-WAY-STREAM-DEVICE-CLOSEFILE 843 NILL 834 NILL 825 NILL 816 NILL 742 TWO-WAY-STREAM-DEVICE 735 |FDEVTYPE#| 730 %CONCATENATED-STREAM-DEVICE 722 NILL 713 NILL 704 NILL 695 NILL 686 \\GENERIC.READCHAR 677 \\GENERIC.WRITECHAR 668 \\GENERIC.PEEKCHAR 659 \\GENERIC.UNREADCHAR 650 \\ILLEGAL.DEVICEOP 641 \\IS.NOT.RANDACCESSP 632 \\IS.NOT.RANDACCESSP 623 \\GENERIC.READCCODE 614 %CONCATENATED-STREAM-DEVICE-CHARSETFN 605 NILL 596 NILL 587 NILL 578 NILL 569 \\GENERIC.BINS 560 %CONCATENATED-STREAM-DEVICE-EOFP 551 %CONCATENATED-STREAM-DEVICE-BACKFILEPTR 542 \\GENERIC.READP 533 %CONCATENATED-STREAM-DEVICE-PEEKBIN 524 NILL 515 %CONCATENATED-STREAM-DEVICE-BIN 506 NILL 497 \\GENERATENOFILES 488 NILL 479 NILL 470 %CONCATENATED-STREAM-DEVICE-CLOSEFILE 461 NILL 452 NILL 443 NILL 434 NILL 372 CONCATENATED-STREAM-DEVICE 365 |FDEVTYPE#| 360 %BROADCAST-STREAM-DEVICE 352 NILL 343 NILL 334 NILL 325 NILL 316 \\GENERIC.READCHAR 307 \\GENERIC.WRITECHAR 298 \\GENERIC.PEEKCHAR 289 \\GENERIC.UNREADCHAR 280 \\ILLEGAL.DEVICEOP 271 \\IS.NOT.RANDACCESSP 262 \\IS.NOT.RANDACCESSP 253 \\GENERIC.READCCODE 244 %BROADCAST-STREAM-DEVICE-CHARSETFN 235 NILL 226 NILL 217 %BROADCAST-STREAM-DEVICE-FORCEOUTPUT 208 NILL 199 \\GENERIC.BINS 190 TRUE 181 NILL 172 NILL 163 %BROADCAST-STREAM-DEVICE-BOUT 154 NILL 145 NILL 136 \\GENERATENOFILES 127 NILL 118 NILL 109 %BROADCAST-STREAM-DEVICE-CLOSEFILE 100 NILL 91 NILL 82 NILL 73 NILL 11 BROADCAST-STREAM-DEVICE 4 |FDEVTYPE#|) () (%INITIALIZE-CLSTREAM-TYPES) (%INITIALIZE-STANDARD-STREAMS) (PUTPROPS CLSTREAMS FILETYPE CL:COMPILE-FILE) (PUTPROPS CLSTREAMS COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1991 1992 1993)) #:NIL