(FILECREATED "11-Oct-86 01:06:44" ("compiled on " {ERIS}SOURCES>CLSTREAMS.;10) " 1-Oct-86 20:23:15" "COMPILE-FILEd" in "Xerox Lisp 1-Oct-86 ..." dated " 1-Oct-86 21:24:44") (FILECREATED "11-Oct-86 01:05:55" {ERIS}SOURCES>CLSTREAMS.;10 46861 changes to: (VARS CLSTREAMSCOMS) (FUNCTIONS %%MAKE-INITIAL-STRING-STREAM-CONTENTS MAKE-SYNONYM-STREAM MAKE-BROADCAST-STREAM MAKE-CONCATENATED-STREAM MAKE-TWO-WAY-STREAM MAKE-ECHO-STREAM WITH-INPUT-FROM-STRING WITH-OUTPUT-TO-STRING) (FNS %%INITIALIZE-CLSTREAM-TYPES) previous date: "10-Oct-86 13:55:53" {ERIS}SOURCES>CLSTREAMS.;8) (RPAQQ CLSTREAMSCOMS ((* ;;; "Implements a number of stream functions from CommonLisp. See CLtL chapter 21") (COMS (* ;; "documented functions and macros") (FUNCTIONS OPEN CLOSE) (FUNCTIONS STREAM-ELEMENT-TYPE INPUT-STREAM-P OUTPUT-STREAM-P) (COMS (FUNCTIONS FILE-STREAM-POSITION) (SETFS FILE-STREAM-POSITION)) ( FUNCTIONS MAKE-SYNONYM-STREAM MAKE-BROADCAST-STREAM MAKE-CONCATENATED-STREAM MAKE-TWO-WAY-STREAM MAKE-ECHO-STREAM MAKE-STRING-INPUT-STREAM) (FUNCTIONS %%MAKE-INITIAL-STRING-STREAM-CONTENTS) ( FUNCTIONS WITH-OPEN-STREAM WITH-INPUT-FROM-STRING WITH-OUTPUT-TO-STRING WITH-OPEN-FILE) (FUNCTIONS MAKE-STRING-OUTPUT-STREAM MAKE-FILL-POINTER-OUTPUT-STREAM 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) (FNS %%CONCATENATED-STREAM-DEVICE-BIN %%CONCATENATED-STREAM-DEVICE-CLOSEFILE %%CONCATENATED-STREAM-DEVICE-EOFP %%CONCATENATED-STREAM-DEVICE-PEEKBIN) (FNS %%ECHO-STREAM-DEVICE-BIN) (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) (FNS %%TWO-WAY-STREAM-DEVICE-BIN %%TWO-WAY-STREAM-DEVICE-BOUT %%TWO-WAY-STREAM-DEVICE-OUTCHARFN %%TWO-WAY-STREAM-DEVICE-CLOSEFILE %%TWO-WAY-STREAM-DEVICE-EOFP %%TWO-WAY-STREAM-DEVICE-BACKFILEPTR %%TWO-WAY-STREAM-DEVICE-FORCEOUTPUT %%TWO-WAY-STREAM-DEVICE-PEEKBIN) (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 \FILL-POINTER-STREAM-DEVICE)) (COMS (* ;; "helper stuff") (FNS %%SYNONYM-STREAM-DEVICE-GET-STREAM)) (COMS (* ;; "package initialization") ( VARIABLES *TRACE-OUTPUT* *DEBUG-IO* *QUERY-IO* *TERMINAL-IO* *ERROR-OUTPUT* *STANDARD-OUTPUT* *STANDARD-INPUT*) (FUNCTIONS %%INITIALIZE-STANDARD-STREAMS) (FNS %%INITIALIZE-CLSTREAM-TYPES) ( DECLARE: DONTEVAL@LOAD DOCOPY (*) (P (%%INITIALIZE-CLSTREAM-TYPES) (%%INITIALIZE-STANDARD-STREAMS)))) (PROP FILETYPE CLSTREAMS))) OPEN D1 (L (0 -args-) F 30Q *QUERY-IO*) Jekañ Hl»ºKdJó²g¿g¼Hl¾½NdMó²j¿g_¿i_¿Hl_¿_¿OdOó²a¿h__¿i_¿Hl_¿_¿OdOó²[¿h__¿Logg ²Wh°Uagð•KkØa°•KlÔ[°…agð•NkØa°’NlÔ^°‚agð–OkØa°šOlÔ_°‡agð–OkØa° OlÔ_°i˜oL ¿Oogg ‘h€i™oO ¿I Logg Logg Ldgð•¿g°gð“gLdgð”¿ghðO‘h€i²O& gð“g‚g_¿O‘h€i².Oogg §Ldgð”¿g‰gð‘h‚g_¿O& _$ _"¿O$¢±ùO*²uOdgð²¿ooO"¿O"O, ±gð³Ogð¯Ogð¨Odgð•¿O"±ëgð™O"O,g±áOdgð›¿O"gg±Í¡hoO±%O(™O"O,g±´lO" _ ¿dO ¿dg.¿dg,¿d`&¿dg"¿dg ¿djÏ¿d`Í¿djÍ¿d`Í¿dh¿dlÏ¿djÏR¿dkÏ@¿dkÏ0¿dh¿°DO*²SOdgð²(¿ooO&¿W0o ¿W0 _&±þÆgðžO&O,g_.O.O´‚±ÿ+o°NO(²íOdgð²(¿ooO&¿W0o ¿W0 _&±þqgð—O& ±þdO´‚±þÝoO ±þP(1505Q CL:ERROR 1461Q %%NEW-FILE 1442Q PATHNAME 1437Q READ-LINE 1431Q FORMAT 1417Q CERROR 1341Q OPENSTREAM 1315Q PATHNAME 1312Q READ-LINE 1304Q FORMAT 1272Q CERROR 1065Q FULLNAME 714Q OPENSTREAM 704Q CERROR 640Q MKSTRING 633Q PREDICT-NAME 574Q CL:MEMBER 571Q SYMBOL-FUNCTION 523Q PATHNAME-VERSION 437Q CL:MEMBER 434Q SYMBOL-FUNCTION 416Q CL:MEMBER 413Q SYMBOL-FUNCTION 375Q PATHNAME 370Q CL:ERROR 352Q CL:MEMBER 347Q SYMBOL-FUNCTION 327Q CL:ERROR 166Q CL:MEMBER 163Q SYMBOL-FUNCTION) (1452Q :CREATE 1376Q :ERROR 1336Q NEW 1325Q :CREATE 1251Q :ERROR 1167Q \STREAM.DEFAULT.MAXBUFFERS 1153Q FILELINELENGTH 1136Q \FILEOUTCHARFN 1127Q \EOSERROR 1120Q \NOIMAGEOPS 1111Q \STREAM.NOT.OPEN 1102Q \STREAM.NOT.OPEN 1052Q OLD 1021Q OLD 1016Q APPEND 1006Q :APPEND 775Q OLD 764Q :OVERWRITE 751Q :RENAME-AND-DELETE 741Q :RENAME 732Q :SUPERSEDE 722Q :NEW-VERSION 663Q :ERROR 623Q :CREATE 614Q :PROBE 610Q :ERROR 602Q :INPUT 566Q EQ 563Q :TEST 537Q :ERROR 533Q :NEW-VERSION 526Q :NEWEST 500Q BOTH 472Q :IO 464Q OUTPUT 457Q :OUTPUT 452Q INPUT 444Q :INPUT 431Q EQ 426Q :TEST 410Q EQ 405Q :TEST 344Q EQ 341Q :TEST 273Q :IF-DOES-NOT-EXIST 245Q :IF-EXISTS 222Q :ELEMENT-TYPE 177Q :DIRECTION 160Q EQ 155Q :TEST 52Q STRING-CHAR 32Q :INPUT) ( 1500Q "~S is not a valid value for :if-does-not-exist." 1426Q "~&New file name: " 1412Q "File ~A does not exist." 1406Q "prompt for a new name." 1362Q "~S is not a valid value for :if-does-not-exist." 1301Q "~&New file name: " 1265Q "File ~A does not exist." 1261Q "prompt for a new name." 1033Q "~S is not a valid value for :if-exists." 677Q "File ~A already exists." 673Q "write it anyway." 560Q (:OVERWRITE :APPEND) 423Q (:IO :OUTPUT) 402Q (:IO :INPUT) 363Q "~S isn't an implemented element-type for open." 336Q (STRING-CHAR UNSIGNED-BYTE CHARACTER :DEFAULT) 323Q "~S isn't a valid direction for open." 152Q (:INPUT :OUTPUT :IO :PROBE)) CLOSE D1 (L (0 -args-)) vekaAHl»ºKdJó²0¿h¼I ²PI ²RIÊRlåjðhð´%IÊRlð²h°agð•KkØa°ÊKlÔ[°¼i½I ¿L²M²I ¿‡oI i(162Q ERROR 150Q DELFILE 145Q NAMESTRING 132Q CLOSEF 40Q OPENP 32Q STREAMP) (105Q :ABORT 66Q STREAM 46Q STREAM) ( 156Q "Closing a non-stream") STREAM-ELEMENT-TYPE D1 (L (0 STREAM)) gNIL (2 UNSIGNED-BYTE) () INPUT-STREAM-P D1 (L (0 STREAM)) @ ‘h€i”@ ¿@gi´i(25Q \IOMODEP 14Q \ILLEGAL.ARG 3 STREAMP) (21Q INPUT) () OUTPUT-STREAM-P D1 (L (0 STREAM)) @ ‘h€i”@ ¿@gi´i(25Q \IOMODEP 14Q \ILLEGAL.ARG 3 STREAMP) (21Q OUTPUT) () FILE-STREAM-POSITION D1 (L (0 STREAM)) @ (3 GETFILEPTR) NIL () (REMPROP (QUOTE FILE-STREAM-POSITION) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS FILE-STREAM-POSITION SETF-INVERSE SETFILEPTR) MAKE-SYNONYM-STREAM D1 (L (0 SYMBOL)) ld`¿d@¿dg ¿dlÿÏ2¿dg.¿dg,¿d`&¿dg"¿djÏ¿d`Í¿djÍ¿d`Í¿dh¿dlÏ¿djÏR¿dkÏ@¿dkÏ0¿dh¿dg ¿(173Q \SETACCESS) (170Q BOTH 116Q \STREAM.DEFAULT.MAXBUFFERS 102Q FILELINELENGTH 65Q \EOSERROR 56Q \NOIMAGEOPS 47Q \STREAM.NOT.OPEN 40Q \STREAM.NOT.OPEN 22Q %%SYNONYM-STREAM-DEVICE-OUTCHARFN 6 %%SYNONYM-STREAM-DEVICE) () MAKE-BROADCAST-STREAM D1 (L (0 -args-)) ¬eHk2JdIó¢±‡¿Kld`¿dI¿dg ¿dlÿÏ2¿dg.¿dg,¿d`&¿dg"¿djÏ¿d`Í¿djÍ¿d`Í¿dh¿dlÏ¿djÏR¿dkÏ@¿dkÏ0¿dh¿dg ¿a½LµMh\»JkÔZ±ÿgM&¼°ö(222Q \SETACCESS) (217Q OUTPUT 145Q \STREAM.DEFAULT.MAXBUFFERS 131Q FILELINELENGTH 114Q \EOSERROR 105Q \NOIMAGEOPS 76Q \STREAM.NOT.OPEN 67Q \STREAM.NOT.OPEN 51Q %%BROADCAST-STREAM-DEVICE-OUTCHARFN 35Q %%BROADCAST-STREAM-DEVICE) () MAKE-CONCATENATED-STREAM D1 (L (0 -args-)) ¬eHk2JdIó¢±‡¿Kld`¿dI¿dlÿÏ2¿dg.¿dg,¿d`&¿dg"¿dg ¿djÏ¿d`Í¿djÍ¿d`Í¿dh¿dlÏ¿djÏR¿dkÏ@¿dkÏ0¿dh¿dg ¿a½LµMh\»JkÔZ±ÿgM&¼°ö(222Q \SETACCESS) (217Q INPUT 145Q \STREAM.DEFAULT.MAXBUFFERS 131Q FILELINELENGTH 114Q \FILEOUTCHARFN 105Q \EOSERROR 76Q \NOIMAGEOPS 67Q \STREAM.NOT.OPEN 60Q \STREAM.NOT.OPEN 35Q %%CONCATENATED-STREAM-DEVICE) () MAKE-TWO-WAY-STREAM D1 (L (1 OUTPUT-STREAM 0 INPUT-STREAM)) „ld`¿d@¿dA¿dg ¿dlÿÏ2¿dg.¿dg,¿d`&¿dg"¿djÏ¿d`Í¿djÍ¿d`Í¿dh¿dlÏ¿djÏR¿dkÏ@¿dkÏ0¿dh¿dg ¿(200Q \SETACCESS) (175Q BOTH 123Q \STREAM.DEFAULT.MAXBUFFERS 107Q FILELINELENGTH 72Q \EOSERROR 63Q \NOIMAGEOPS 54Q \STREAM.NOT.OPEN 45Q \STREAM.NOT.OPEN 27Q %%TWO-WAY-STREAM-DEVICE-OUTCHARFN 6 %%TWO-WAY-STREAM-DEVICE) () MAKE-ECHO-STREAM D1 (L (1 OUTPUT-STREAM 0 INPUT-STREAM) F 0 %%ECHO-STREAM-DEVICE) ‚ldP¿d@¿dA¿dg ¿dlÿÏ2¿dg.¿dg,¿d`&¿dg"¿djÏ¿d`Í¿djÍ¿d`Í¿dh¿dlÏ¿djÏR¿dkÏ@¿dkÏ0¿dh¿dg ¿(176Q \SETACCESS) (173Q BOTH 121Q \STREAM.DEFAULT.MAXBUFFERS 105Q FILELINELENGTH 70Q \EOSERROR 61Q \NOIMAGEOPS 52Q \STREAM.NOT.OPEN 43Q \STREAM.NOT.OPEN 25Q %%TWO-WAY-STREAM-DEVICE-OUTCHARFN) () MAKE-STRING-INPUT-STREAM D1 (L (0 -args-)) @ekaAlHñ‘j„iºla»h¼lHñ‘h„i¼la½J¡LIKL‘MƒI €Ig (75Q OPENSTRINGSTREAM 65Q SUBSEQ 62Q CL:LENGTH) (72Q INPUT) () %%MAKE-INITIAL-STRING-STREAM-CONTENTS D1 NIL l€gggigj (23Q MAKE-ARRAY) (16Q :FILL-POINTER 12Q :ADJUSTABLE 7 STRING-CHAR 4 :ELEMENT-TYPE) () expand-WITH-OPEN-STREAM D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) m@qHYºI»HAh \½L¾_¿gJKhOohNgggMgOohgJgOhhh (150Q \APPEND2 41Q GENSYM 27Q \MVLIST 24Q PARSE-BODY) (130Q :ABORT 124Q CLOSE 105Q SETQ 100Q PROGN 75Q MULTIPLE-VALUE-PROG1 72Q UNWIND-PROTECT 47Q LET) ( 113Q (NIL) 62Q (T)) (SETF-MACRO-FUNCTION (QUOTE WITH-OPEN-STREAM) (QUOTE expand-WITH-OPEN-STREAM)) expand-WITH-INPUT-FROM-STRING D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) Ò@ñHYºI[¼K½gM ^d_¿N¡h€i_¿gM ^µ j_¿N¤hƒ°øi_¿gM ^d_¿N¡h€i_¿HAh __¿O_¿Mo gJgLOšO’O‰Oh‰O´hOhhhOggOO´gOgOgJhhhhh (315Q \APPEND2 165Q KEYWORD-TEST 140Q \MVLIST 135Q PARSE-BODY 107Q FIND-KEYWORD 56Q FIND-KEYWORD 30Q FIND-KEYWORD) (270Q GETFILEPTR 263Q + 256Q SETF 244Q PROGN 241Q PROG1 174Q MAKE-STRING-INPUT-STREAM 170Q LET 103Q :END 52Q :START 24Q :INDEX) ( 162Q (:END :START :INDEX)) (SETF-MACRO-FUNCTION (QUOTE WITH-INPUT-FROM-STRING) (QUOTE expand-WITH-INPUT-FROM-STRING)) expand-WITH-OUTPUT-TO-STRING D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) w @HYºI[d¼K¡h€i½HAh ^_¿N_¿M²"gJgLhhhOgOh gJohOgOgJhh h (162Q \APPEND2 154Q \APPEND2 113Q \APPEND2 40Q \MVLIST 35Q PARSE-BODY) (143Q GET-OUTPUT-STREAM-STRING 136Q PROGN 121Q LET 103Q PROGN 65Q MAKE-FILL-POINTER-OUTPUT-STREAM 61Q LET) ( 126Q ((MAKE-STRING-OUTPUT-STREAM))) (SETF-MACRO-FUNCTION (QUOTE WITH-OUTPUT-TO-STRING) (QUOTE expand-WITH-OUTPUT-TO-STRING)) expand-WITH-OPEN-FILE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) p@qHYºI»HAh \½L¾_¿gJgKhOohNgggMgOohgJgOhhh (153Q \APPEND2 40Q GENSYM 26Q \MVLIST 23Q PARSE-BODY) (133Q :ABORT 127Q CLOSE 110Q SETQ 103Q PROGN 100Q MULTIPLE-VALUE-PROG1 75Q UNWIND-PROTECT 52Q OPEN 46Q LET) ( 116Q (NIL) 65Q (T)) (SETF-MACRO-FUNCTION (QUOTE WITH-OPEN-FILE) (QUOTE expand-WITH-OPEN-FILE)) MAKE-STRING-OUTPUT-STREAM D1 NIL (2 MAKE-FILL-POINTER-OUTPUT-STREAM) NIL () MAKE-FILL-POINTER-OUTPUT-STREAM D1 (L (0 -args-)) »ekHñ“kaI ‘h€i”I ld`¿dI¿dg.¿dg,¿d`&¿dg"¿dg ¿djÏ¿d`Í¿djÍ¿d`Í¿dh¿dlÏ¿djÏR¿dkÏ@¿dkÏ0¿dh¿dg ¿ZgiJI “g‚g Jg.J(244Q ADJUSTABLE-ARRAY-P 234Q STREAMPROP 223Q \SETACCESS 35Q \ILLEGAL.ARG 24Q ARRAY-HAS-FILL-POINTER-P 12Q %%MAKE-INITIAL-STRING-STREAM-CONTENTS) (265Q \OUTCHAR 262Q STREAM 254Q \STRING-STREAM-OUTCHARFN 250Q \ADJUSTABLE-STRING-STREAM-OUTCHARFN 240Q STREAM 230Q STRING-OUTPUT-STREAM 220Q OUTPUT 146Q \STREAM.DEFAULT.MAXBUFFERS 132Q FILELINELENGTH 115Q \FILEOUTCHARFN 106Q \EOSERROR 77Q \NOIMAGEOPS 70Q \STREAM.NOT.OPEN 61Q \STREAM.NOT.OPEN 45Q \FILL-POINTER-STREAM-DEVICE) () GET-OUTPUT-STREAM-STRING D1 (L (0 STRING-OUTPUT-STREAM)) '@g ‘h€i˜o@ @É@¿(41Q %%MAKE-INITIAL-STRING-STREAM-CONTENTS 23Q ERROR 6 STREAMPROP) (36Q STREAM 30Q STREAM 3 STRING-OUTPUT-STREAM) ( 17Q "Stream not a string-output-stream") \STRING-STREAM-OUTCHARFN D1 (L (1 CHAR 0 STREAM)) )Al ð•@j‹@@ÈkÔÍ¿A @É (46Q VECTOR-PUSH 35Q CL:CHARACTER) (41Q STREAM 22Q STREAM 16Q STREAM 10Q STREAM) () \ADJUSTABLE-STRING-STREAM-OUTCHARFN D1 (L (1 CHAR 0 STREAM)) )Al ð•@j‹@@ÈkÔÍ¿A @É (46Q VECTOR-PUSH-EXTEND 35Q CL:CHARACTER) (41Q STREAM 22Q STREAM 16Q STREAM 10Q STREAM) () %%NEW-FILE D1 (L (0 FILENAME)) @gg (14Q CLOSEF 11Q OPENSTREAM) (6 NEW 3 OUTPUT) () PREDICT-NAME D1 (L (0 PATHNAME)) @ d’ (10Q NAMESTRING 3 PROBE-FILE) NIL () %%BROADCAST-STREAM-DEVICE-BOUT D1 (P 0 S I 1 BYTE I 0 STREAM) @É‹dHA µóA(20Q \BOUT) (3 STREAM) () %%BROADCAST-STREAM-DEVICE-OUTCHARFN D1 (P 0 S I 1 CHARCODE I 0 STREAM) <Al ð•@j‹@@ÈkÔÍ¿@É°dHÉ ¹HAlIµëANIL (52Q STREAM 35Q STREAM 22Q STREAM 16Q STREAM 10Q STREAM) () %%BROADCAST-STREAM-DEVICE-CLOSEFILE D1 (I 0 STREAM) @ @h@(3 \SETACCESS) (7 STREAM) () %%BROADCAST-STREAM-DEVICE-FORCEOUTPUT D1 (P 0 s I 1 waitForFinish? I 0 stream) @É‹dHA µóh(20Q FORCEOUTPUT) (3 STREAM) () %%CONCATENATED-STREAM-DEVICE-BIN D1 (I 0 stream) C@É‘h€i³2@É ²@ÉH@H¿ ¿°Ï@É @ h(77Q \EOF.ACTION 57Q CLOSEF 25Q EOFP) (66Q STREAM 46Q STREAM 33Q STREAM 17Q STREAM 3 STREAM) () %%CONCATENATED-STREAM-DEVICE-CLOSEFILE D1 (P 0 s I 0 stream) #@ @ÉŠdH µô@h@(23Q CLOSEF 3 \SETACCESS) (34Q STREAM 7 STREAM) () %%CONCATENATED-STREAM-DEVICE-EOFP D1 (I 0 stream) 7@É‘h€i³*@É ´@ÉH@H¿ ¿°Ïi(57Q CLOSEF 25Q EOFP) (46Q STREAM 33Q STREAM 17Q STREAM 3 STREAM) () %%CONCATENATED-STREAM-DEVICE-PEEKBIN D1 (I 1 noErrorFlg? I 0 stream) I@É‘h€i³4@É ²@ÉH@H¿ ¿°Ï@É A‘h@ h(105Q \EOF.ACTION 74Q \PEEKBIN 57Q CLOSEF 25Q EOFP) (66Q STREAM 46Q STREAM 33Q STREAM 17Q STREAM 3 STREAM) () %%ECHO-STREAM-DEVICE-BIN D1 (P 0 BYTE I 0 STREAM) @ @H H(13Q \BOUT 3 %%TWO-WAY-STREAM-DEVICE-BIN) NIL () %%SYNONYM-STREAM-DEVICE-BIN D1 (I 0 STREAM) @ (3 %%SYNONYM-STREAM-DEVICE-GET-STREAM) NIL () %%SYNONYM-STREAM-DEVICE-BOUT D1 (I 1 BYTE I 0 STREAM) @ A (7 \BOUT 3 %%SYNONYM-STREAM-DEVICE-GET-STREAM) NIL () %%SYNONYM-STREAM-DEVICE-OUTCHARFN D1 (I 1 CHARCODE I 0 STREAM) 0Al ð•@j‹@@ÈkÔÍ¿@ HÉ ¹HAlI(35Q %%SYNONYM-STREAM-DEVICE-GET-STREAM) (44Q STREAM 22Q STREAM 16Q STREAM 10Q STREAM) () %%SYNONYM-STREAM-DEVICE-CLOSEFILE D1 (I 0 STREAM) @h@NIL (3 STREAM) () %%SYNONYM-STREAM-DEVICE-EOFP D1 (I 0 STREAM) @ HÉÉ4¹HkI(3 %%SYNONYM-STREAM-DEVICE-GET-STREAM) (17Q FDEV 12Q STREAM) () %%SYNONYM-STREAM-DEVICE-FORCEOUTPUT D1 (I 1 WAITFORFINISH I 0 STREAM) @ A (7 FORCEOUTPUT 3 %%SYNONYM-STREAM-DEVICE-GET-STREAM) NIL () %%SYNONYM-STREAM-DEVICE-GETFILEINFO D1 (I 2 DEVICE I 1 ATTRIBUTE I 0 STREAM) @ A (7 GETFILEINFO 3 %%SYNONYM-STREAM-DEVICE-GET-STREAM) NIL () %%SYNONYM-STREAM-DEVICE-PEEKBIN D1 (I 1 NOERRORFLG? I 0 STREAM) @ A (7 \PEEKBIN 3 %%SYNONYM-STREAM-DEVICE-GET-STREAM) NIL () %%SYNONYM-STREAM-DEVICE-READP D1 (I 1 FLG I 0 STREAM) @ A (7 READP 3 %%SYNONYM-STREAM-DEVICE-GET-STREAM) NIL () %%SYNONYM-STREAM-DEVICE-BACKFILEPTR D1 (I 0 STREAM) @ (6 \BACKFILEPTR 3 %%SYNONYM-STREAM-DEVICE-GET-STREAM) NIL () %%SYNONYM-STREAM-DEVICE-SETFILEINFO D1 (I 3 DEVICE I 2 VALUE I 1 ATTRIBUTE I 0 STREAM) @ AB(10Q SETFILEINFO 3 %%SYNONYM-STREAM-DEVICE-GET-STREAM) NIL () %%TWO-WAY-STREAM-DEVICE-BIN D1 (I 0 stream) @É NIL (3 STREAM) () %%TWO-WAY-STREAM-DEVICE-BOUT D1 (I 1 BYTE I 0 STREAM) @ÉA (11Q \BOUT) (3 STREAM) () %%TWO-WAY-STREAM-DEVICE-OUTCHARFN D1 (I 1 CHARCODE I 0 STREAM) 2Al ð•@j‹@@ÈkÔÍ¿@ÉHÉ ¹HAlINIL (46Q STREAM 35Q STREAM 22Q STREAM 16Q STREAM 10Q STREAM) () %%TWO-WAY-STREAM-DEVICE-CLOSEFILE D1 (I 0 stream) '@ @É @h@É @h@(34Q CLOSEF? 14Q CLOSEF? 3 \SETACCESS) (40Q STREAM 27Q STREAM 20Q STREAM 7 STREAM) () %%TWO-WAY-STREAM-DEVICE-EOFP D1 (I 0 stream) @ÉHÉÉ4¹HkINIL (21Q FDEV 14Q STREAM 3 STREAM) () %%TWO-WAY-STREAM-DEVICE-BACKFILEPTR D1 (I 0 STREAM) @É (10Q \BACKFILEPTR) (3 STREAM) () %%TWO-WAY-STREAM-DEVICE-FORCEOUTPUT D1 (I 1 waitForFinish? I 0 stream) @ÉA (11Q FORCEOUTPUT) (3 STREAM) () %%TWO-WAY-STREAM-DEVICE-PEEKBIN D1 (I 1 noErrorFlg? I 0 stream) @ÉA (11Q \PEEKBIN) (3 STREAM) () %%FILL-POINTER-STREAM-DEVICE-CLOSEFILE D1 (L (0 STREAM)) @h@NIL (3 STREAM) () %%FILL-POINTER-STREAM-DEVICE-GETFILEPTR D1 (L (0 STREAM)) @É (10Q CL:LENGTH) (3 STREAM) () %%SYNONYM-STREAM-DEVICE-GET-STREAM D1 (I 0 stream) @É (10Q SYMBOL-VALUE) (3 STREAM) () (PROCLAIM (QUOTE (SPECIAL *TRACE-OUTPUT*))) (PROCLAIM (QUOTE (SPECIAL *DEBUG-IO*))) (PROCLAIM (QUOTE (SPECIAL *QUERY-IO*))) (PROCLAIM (QUOTE (SPECIAL *TERMINAL-IO*))) (PROCLAIM (QUOTE (SPECIAL *ERROR-OUTPUT*))) (PROCLAIM (QUOTE (SPECIAL *STANDARD-OUTPUT*))) (PROCLAIM (QUOTE (SPECIAL *STANDARD-INPUT*))) %%INITIALIZE-STANDARD-STREAMS D1 (F 0 *QUERY-IO* F 1 *DEBUG-IO* F 2 *TERMINAL-IO* F 3 *TRACE-OUTPUT* F 4 *ERROR-OUTPUT* F 5 *STANDARD-OUTPUT* F 6 *STANDARD-INPUT*) 9g g cdcdcg cg c g cg c(64Q MAKE-SYNONYM-STREAM 54Q MAKE-SYNONYM-STREAM 44Q MAKE-SYNONYM-STREAM 34Q MAKE-SYNONYM-STREAM 16Q MAKE-TWO-WAY-STREAM 13Q MAKE-SYNONYM-STREAM 5 MAKE-SYNONYM-STREAM) (61Q \TERM.OFD 51Q \PRIMIN.OFD 41Q \PRIMOUT.OFD 31Q \TERM.OFD 10Q \TERM.OFD 2 \LINEBUF.OFD) () %%INITIALIZE-CLSTREAM-TYPES D1 (F 0 %%ECHO-STREAM-DEVICE) ã`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"¿dg$¿dg4¿dg6¿dg8¿dg*¿dg¿dg¿dgT¿dgR¿dgN¿dg2¿dg0¿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"¿dg$¿dg4¿dg6¿dg8¿dg*¿dg¿dg¿dgT¿dgR¿dgN¿dg2¿dg0¿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"¿dg$¿dg&¿dg4¿dg6¿dg8¿dg*¿dg¿dg¿dgT¿dgR¿dgN¿dg2¿dg0¿dg.¿`` dg¿dg¿c`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"¿dg$¿dg&¿dg4¿dg6¿dg8¿dg*¿dg¿dg¿dgT¿dgR¿dgN¿dg2¿dg0¿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 ¿dg"¿dg$¿dg4¿dg6¿dg8¿dg*¿dg0¿dg¿dgT¿dgR¿dgN¿dg2¿dg.¿(1345Q NCREATE2) (2340Q \FILL-POINTER-STREAM-DEVICE 2332Q \IS.NOT.RANDACCESSP 2323Q \IS.NOT.RANDACCESSP 2314Q NILL 2305Q NILL 2276Q NILL 2267Q \ILLEGAL.DEVICEOP 2260Q %%FILL-POINTER-STREAM-DEVICE-GETFILEPTR 2251Q NILL 2242Q \GENERIC.BOUTS 2233Q \ILLEGAL.DEVICEOP 2224Q NILL 2215Q \ILLEGAL.DEVICEOP 2206Q \ILLEGAL.DEVICEOP 2177Q NILL 2170Q \ILLEGAL.DEVICEOP 2161Q NILL 2152Q \GENERATENOFILES 2143Q NILL 2134Q NILL 2125Q %%FILL-POINTER-STREAM-DEVICE-CLOSEFILE 2116Q NILL 2107Q NILL 2100Q NILL 2071Q NILL 2062Q NILL 1766Q FILL-POINTER-STREAM-DEVICE 1761Q FDEVTYPE# 1756Q %%SYNONYM-STREAM-DEVICE 1750Q \IS.NOT.RANDACCESSP 1741Q \ILLEGAL.DEVICEOP 1732Q \IS.NOT.RANDACCESSP 1723Q NILL 1714Q NILL 1705Q NILL 1676Q %%SYNONYM-STREAM-DEVICE-SETFILEINFO 1667Q %%SYNONYM-STREAM-DEVICE-GETFILEINFO 1660Q %%SYNONYM-STREAM-DEVICE-FORCEOUTPUT 1651Q \GENERIC.BOUTS 1642Q \GENERIC.BINS 1633Q %%SYNONYM-STREAM-DEVICE-EOFP 1624Q %%SYNONYM-STREAM-DEVICE-BACKFILEPTR 1615Q %%SYNONYM-STREAM-DEVICE-READP 1606Q %%SYNONYM-STREAM-DEVICE-PEEKBIN 1577Q %%SYNONYM-STREAM-DEVICE-BOUT 1570Q %%SYNONYM-STREAM-DEVICE-BIN 1561Q NILL 1552Q \GENERATENOFILES 1543Q NILL 1534Q NILL 1525Q %%SYNONYM-STREAM-DEVICE-CLOSEFILE 1516Q NILL 1507Q NILL 1500Q NILL 1471Q NILL 1375Q SYNONYM-STREAM-DEVICE 1370Q FDEVTYPE# 1360Q %%ECHO-STREAM-DEVICE-BIN 1351Q ECHO-STREAM-DEVICE 1342Q %%TWO-WAY-STREAM-DEVICE 1337Q FDEVTYPE# 1334Q %%TWO-WAY-STREAM-DEVICE 1326Q \IS.NOT.RANDACCESSP 1317Q \ILLEGAL.DEVICEOP 1310Q \IS.NOT.RANDACCESSP 1301Q NILL 1272Q NILL 1263Q NILL 1254Q NILL 1245Q NILL 1236Q %%TWO-WAY-STREAM-DEVICE-FORCEOUTPUT 1227Q \GENERIC.BOUTS 1220Q \GENERIC.BINS 1211Q %%TWO-WAY-STREAM-DEVICE-EOFP 1202Q %%TWO-WAY-STREAM-DEVICE-BACKFILEPTR 1173Q \GENERIC.READP 1164Q %%TWO-WAY-STREAM-DEVICE-PEEKBIN 1155Q %%TWO-WAY-STREAM-DEVICE-BOUT 1146Q %%TWO-WAY-STREAM-DEVICE-BIN 1137Q NILL 1130Q \GENERATENOFILES 1121Q NILL 1112Q NILL 1103Q %%TWO-WAY-STREAM-DEVICE-CLOSEFILE 1074Q NILL 1065Q NILL 1056Q NILL 1047Q NILL 753Q TWO-WAY-STREAM-DEVICE 746Q FDEVTYPE# 743Q %%CONCATENATED-STREAM-DEVICE 735Q \IS.NOT.RANDACCESSP 726Q \ILLEGAL.DEVICEOP 717Q \IS.NOT.RANDACCESSP 710Q NILL 701Q NILL 672Q NILL 663Q NILL 654Q NILL 645Q NILL 636Q NILL 627Q \GENERIC.BINS 620Q %%CONCATENATED-STREAM-DEVICE-EOFP 611Q \GENERIC.READP 602Q %%CONCATENATED-STREAM-DEVICE-PEEKBIN 573Q NILL 564Q %%CONCATENATED-STREAM-DEVICE-BIN 555Q NILL 546Q \GENERATENOFILES 537Q NILL 530Q NILL 521Q %%CONCATENATED-STREAM-DEVICE-CLOSEFILE 512Q NILL 503Q NILL 474Q NILL 465Q NILL 371Q CONCATENATED-STREAM-DEVICE 364Q FDEVTYPE# 361Q %%BROADCAST-STREAM-DEVICE 353Q \IS.NOT.RANDACCESSP 344Q \ILLEGAL.DEVICEOP 335Q \IS.NOT.RANDACCESSP 326Q NILL 317Q NILL 310Q NILL 301Q NILL 272Q NILL 263Q %%BROADCAST-STREAM-DEVICE-FORCEOUTPUT 254Q NILL 245Q \GENERIC.BINS 236Q TRUE 227Q NILL 220Q NILL 211Q %%BROADCAST-STREAM-DEVICE-BOUT 202Q NILL 173Q NILL 164Q \GENERATENOFILES 155Q NILL 146Q NILL 137Q %%BROADCAST-STREAM-DEVICE-CLOSEFILE 130Q NILL 121Q NILL 112Q NILL 103Q NILL 7 BROADCAST-STREAM-DEVICE 2 FDEVTYPE#) () (%%INITIALIZE-CLSTREAM-TYPES) (%%INITIALIZE-STANDARD-STREAMS) (PUTPROPS CLSTREAMS FILETYPE COMPILE-FILE) (PUTPROPS CLSTREAMS COPYRIGHT ("Xerox Corporation" 1985 1986)) NIL