(FILECREATED "30-Jul-86 12:45:02" ("compiled on " {ERIS}LIBRARY>CLSTREAMS.;35) "29-Jul-86 11:51:45" "COMPILE-FILEd" in "Xerox Lisp 29-Jul-86 ..." dated "29-Jul-86 12:04:48") (FILECREATED "30-Jul-86 12:43:00" {ERIS}LIBRARY>CLSTREAMS.;35 87540 changes to: (FUNCTIONS CLOSE OPEN %%INITIALIZE-SYNONYM-IMAGEOPS WITH-INPUT-FROM-STRING MAKE-FILL-POINTER-OUTPUT-STREAM WITH-OUTPUT-TO-STRING MAKE-STRING-OUTPUT-STREAM GET-OUTPUT-STREAM-STRING %%MAKE-INITIAL-STRING-STREAM-CONTENTS) (VARS CLSTREAMSCOMS) previous date: "28-Jul-86 17:21:31" {ERIS}LIBRARY>CLSTREAMS.;29) (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) (FUNCTIONS 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) (DECLARE: DOCOPY ( 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)) (COMS (* "helpers") (FUNCTIONS %%NEW-FILE PREDICT-NAME)) (COMS (* "methods for the special devices") (FNS %%BROADCAST-STREAM-DEVICE-BOUT %%BROADCAST-STREAM-DEVICE-CLOSEFILE %%BROADCAST-STREAM-DEVICE-FORCEOUTPUT %%BROADCAST-STREAM-DEVICE-OPENFILE) (FNS %%CONCATENATED-STREAM-DEVICE-BIN %%CONCATENATED-STREAM-DEVICE-CLOSEFILE %%CONCATENATED-STREAM-DEVICE-EOFP %%CONCATENATED-STREAM-DEVICE-OPENFILE %%CONCATENATED-STREAM-DEVICE-PEEKBIN) (FNS %%ECHO-STREAM-DEVICE-BIN) (FNS %%SYNONYM-STREAM-DEVICE-BIN %%SYNONYM-STREAM-DEVICE-BOUT %%SYNONYM-STREAM-DEVICE-CLOSEFILE %%SYNONYM-STREAM-DEVICE-EOFP %%SYNONYM-STREAM-DEVICE-FORCEOUTPUT %%SYNONYM-STREAM-DEVICE-GETFILEINFO %%SYNONYM-STREAM-DEVICE-OPENFILE %%SYNONYM-STREAM-DEVICE-PEEKBIN %%SYNONYM-STREAM-DEVICE-READP %%SYNONYM-STREAM-DEVICE-SETFILEINFO) (FNS %%TWO-WAY-STREAM-DEVICE-BIN %%TWO-WAY-STREAM-DEVICE-BOUT %%TWO-WAY-STREAM-DEVICE-CLOSEFILE %%TWO-WAY-STREAM-DEVICE-EOFP %%TWO-WAY-STREAM-DEVICE-FORCEOUTPUT %%TWO-WAY-STREAM-DEVICE-OPENFILE %%TWO-WAY-STREAM-DEVICE-PEEKBIN) (FUNCTIONS %%FILL-POINTER-STREAM-DEVICE-CLOSEFILE %%FILL-POINTER-STREAM-DEVICE-GETFILEPTR)) (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-SYNONYM-IMAGEOPS %%INITIALIZE-STANDARD-STREAMS) (FNS %%INITIALIZE-CLSTREAM-TYPES) (DECLARE: DONTEVAL@LOAD DOCOPY (*) (P (%%INITIALIZE-CLSTREAM-TYPES) ( %%INITIALIZE-STANDARD-STREAMS) (%%INITIALIZE-SYNONYM-IMAGEOPS)))) (PROP FILETYPE CLSTREAMS) (SETFS FILE-STREAM-POSITION))) OPEN D1 (L (0 -args-) F 25Q *QUERY-IO*) ekaHlKdJgHlNdMg_i_Hl__OdOh__i_Hl__OdOh__Lo oL Oo oO I Lo Lo OrO" gag_agKkaTKl[AagNkaQNl^>agOkaYOl_CagOka_Ol_Ig_O%Oo Ldggghg_O" _ O&}OdgooO O g gOgOgOdg𓿱gO ggOdgO ggǡhoOO$O ggl dO dg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dhEO&TOdg(ooO" W*o W* _"gO"gg _(O(O1oNO$Odg(ooO" W*o W* _"wgO" jOoO V(1353Q CL:ERROR 1327Q %%NEW-FILE 1310Q PATHNAME 1305Q READ-LINE 1277Q FORMAT 1265Q CERROR 1207Q OPENSTREAM 1162Q PATHNAME 1157Q READ-LINE 1151Q FORMAT 1137Q CERROR 561Q OPENSTREAM 550Q CERROR 507Q PREDICT-NAME 450Q MEMQ 260Q PATHNAME-VERSION 244Q MEMQ 234Q MEMQ 224Q PATHNAME 217Q CL:ERROR 205Q MEMQ 173Q CL:ERROR 162Q MEMQ) (1320Q :CREATE 1244Q :ERROR 1204Q NEW 1201Q OUTPUT 1172Q :CREATE 1116Q :ERROR 1034Q \STREAM.DEFAULT.MAXBUFFERS 1020Q FILELINELENGTH 1003Q \FILEOUTCHARFN 774Q \EOSERROR 765Q \NOIMAGEOPS 756Q \STREAM.NOT.OPEN 747Q \STREAM.NOT.OPEN 727Q OLD 724Q INPUT 675Q OLD 672Q APPEND 662Q :APPEND 651Q OLD 646Q OUTPUT 637Q :OVERWRITE 626Q :RENAME-AND-DELETE 613Q :RENAME 601Q :SUPERSEDE 567Q :NEW-VERSION 556Q OUTPUT 527Q :ERROR 477Q :CREATE 470Q :PROBE 464Q :ERROR 456Q :INPUT 430Q :ERROR 401Q :IF-DOES-NOT-EXIST 351Q :IF-EXISTS 324Q :ELEMENT-TYPE 277Q :DIRECTION 271Q :NEW-VERSION 263Q :NEWEST 53Q STRING-CHAR 31Q :INPUT) ( 1346Q "~S is not a valid value for :if-does-not-exist." 1274Q "~&New file name: " 1260Q "File ~A does not exist." 1254Q "prompt for a new name." 1230Q "~S is not a valid value for :if-does-not-exist." 1146Q "~&New file name: " 1132Q "File ~A does not exist." 1126Q "prompt for a new name." 707Q "~S is not a valid value for :if-exists." 543Q "File ~A already exists." 537Q "write it anyway." 445Q (:OVERWRITE :APPEND) 241Q (:IO :OUTPUT) 231Q (:IO :INPUT) 212Q "~S isn't an implemented element-type for open." 202Q (STRING-CHAR UNSIGNED-BYTE CHARACTER :DEFAULT) 167Q "~S isn't a valid direction for open." 157Q (:INPUT :OUTPUT :IO :PROBE)) CLOSE D1 (L (0 -args-)) sekaAHlKdJChI MI OIRljhIRlhI L*M'I agKkaKl[oI i(157Q ERROR 121Q DELFILE 116Q NAMESTRING 103Q CLOSEF 40Q OPENP 32Q STREAMP) (130Q :ABORT 66Q STREAM 46Q STREAM) ( 153Q "Closing a non-stream") STREAM-ELEMENT-TYPE D1 (L (0 STREAM)) gNIL (2 UNSIGNED-BYTE) () INPUT-STREAM-P D1 (L (0 STREAM)) @d @ @gi i(23Q \IOMODEP 12Q \ILLEGAL.ARG 4 STREAMP) (17Q INPUT) () OUTPUT-STREAM-P D1 (L (0 STREAM)) @d @ @gi i(23Q \IOMODEP 12Q \ILLEGAL.ARG 4 STREAMP) (17Q OUTPUT) () FILE-STREAM-POSITION D1 (L (0 STREAM)) @ (3 GETFILEPTR) NIL () MAKE-SYNONYM-STREAM D1 (L (0 SYMBOL)) gghdg@hh (24Q OPENSTREAM) (12Q SYMBOL 5 BOTH 2 {SYNONYM-STREAM-DEVICE}) () MAKE-BROADCAST-STREAM D1 (L (0 -args-)) AeHk2JdIKgghdgIhh aL Mh\JkZM&(51Q OPENSTREAM) (37Q STREAMS 32Q OUTPUT 27Q {BROADCAST-STREAM-DEVICE}) () MAKE-CONCATENATED-STREAM D1 (L (0 -args-)) AeHk2JdIKgghdgIhh aL Mh\JkZM&(51Q OPENSTREAM) (37Q STREAMS 32Q INPUT 27Q {CONCATENATED-STREAM-DEVICE}) () MAKE-TWO-WAY-STREAM D1 (L (1 OUTPUT-STREAM 0 INPUT-STREAM)) gghdg@hgAhh (34Q OPENSTREAM) (21Q OUTPUT-STREAM 12Q INPUT-STREAM 5 BOTH 2 {TWO-WAY-STREAM-DEVICE}) () MAKE-ECHO-STREAM D1 (L (1 OUTPUT-STREAM 0 INPUT-STREAM)) gghdg@hgAhh (34Q OPENSTREAM) (21Q OUTPUT-STREAM 12Q INPUT-STREAM 5 BOTH 2 {ECHO-STREAM-DEVICE}) () MAKE-STRING-INPUT-STREAM D1 (L (0 -args-)) @ekaAlHjilahlHhilaJLIKLMI Ig (75Q OPENSTRINGSTREAM 65Q SUBSEQ 62Q CL:LENGTH) (72Q INPUT) () %%MAKE-INITIAL-STRING-STREAM-CONTENTS D1 NIL lgggigj (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)) u@qHYIHAh \L_gJKhOohNgggMgOohgJgJgOhhhh (160Q \APPEND2 41Q GENSYM 27Q \MVLIST 24Q PARSE-BODY) (134Q :ABORT 130Q CLOSE 124Q CL:WHEN 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)) @HYI[KgM ^d_Nhh_gM ^Tj_Nhh_gM ^d_Nhh_HAh __O_Mo gJgLOOOOhOhOhhhOgggOOgOgOgJhhhhgJhhh (333Q \APPEND2 162Q KEYWORD-TEST 135Q \MVLIST 132Q PARSE-BODY 104Q FIND-KEYWORD 56Q FIND-KEYWORD 30Q FIND-KEYWORD) (316Q CLOSE 273Q GETFILEPTR 266Q + 261Q SETF 247Q PROGN 244Q PROG1 241Q UNWIND-PROTECT 171Q MAKE-STRING-INPUT-STREAM 165Q LET 100Q :END 52Q :START 24Q :INDEX) ( 157Q (: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)) @HYI[dKhhHAh ^_N_M0gJgLhhhOggOgJhhh gJohOggOgJhh gJhhh (216Q \APPEND2 175Q \APPEND2 131Q \APPEND2 40Q \MVLIST 35Q PARSE-BODY) (201Q CLOSE 164Q GET-OUTPUT-STREAM-STRING 157Q PROGN 154Q UNWIND-PROTECT 137Q LET 114Q CLOSE 106Q PROGN 103Q UNWIND-PROTECT 65Q MAKE-FILL-POINTER-OUTPUT-STREAM 61Q LET) ( 144Q ((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)) x@qHYIHAh \L_gJgKhOohNgggMgOohgJgJgOhhhh (163Q \APPEND2 40Q GENSYM 26Q \MVLIST 23Q PARSE-BODY) (137Q :ABORT 133Q CLOSE 127Q CL:WHEN 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-STREAMA0022 D1 (L (1 BYTE 0 STREAM)) A @ (14Q VECTOR-PUSH-EXTEND 3 CL:CHARACTER) (7 STREAM) () MAKE-FILL-POINTER-OUTPUT-STREAMA0023 D1 (L (1 BYTE 0 STREAM)) A @ (14Q VECTOR-PUSH 3 CL:CHARACTER) (7 STREAM) () MAKE-FILL-POINTER-OUTPUT-STREAM D1 (L (0 -args-)) ekHkaI I l d`dI dg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dhdg Zgi JI gg Jg.J(240Q ADJUSTABLE-ARRAY-P 230Q STREAMPROP 217Q \SETACCESS 31Q \ILLEGAL.ARG 24Q ARRAY-HAS-FILL-POINTER-P 12Q %%MAKE-INITIAL-STRING-STREAM-CONTENTS) (261Q \OUTCHAR 256Q STREAM 250Q MAKE-FILL-POINTER-OUTPUT-STREAMA0023 244Q MAKE-FILL-POINTER-OUTPUT-STREAMA0022 234Q STREAM 224Q STRING-OUTPUT-STREAM 214Q OUTPUT 142Q \STREAM.DEFAULT.MAXBUFFERS 126Q FILELINELENGTH 111Q \FILEOUTCHARFN 102Q \EOSERROR 73Q \NOIMAGEOPS 64Q \STREAM.NOT.OPEN 55Q \STREAM.NOT.OPEN 41Q \FILL-POINTER-STREAM-DEVICE) () GET-OUTPUT-STREAM-STRING D1 (L (0 STRING-OUTPUT-STREAM)) $@dg o@  @ (36Q %%MAKE-INITIAL-STRING-STREAM-CONTENTS 21Q ERROR 7 STREAMPROP) (33Q STREAM 25Q STREAM 4 STRING-OUTPUT-STREAM) ( 15Q "Stream not a string-output-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!ANIL (3 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) () %%BROADCAST-STREAM-DEVICE-OPENFILE D1 (I 4 DEVICE I 3 PARAMETERS I 2 RECOG I 1 ACCESS I 0 NAME) AgAgAghl dDgCHdI dg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dhNIL (145Q \STREAM.DEFAULT.MAXBUFFERS 131Q FILELINELENGTH 114Q \FILEOUTCHARFN 105Q \EOSERROR 76Q \NOIMAGEOPS 67Q \STREAM.NOT.OPEN 60Q \STREAM.NOT.OPEN 36Q STREAMS 17Q APPEND 11Q BOTH 3 INPUT) () %%CONCATENATED-STREAM-DEVICE-BIN D1 (I 0 stream) ?@ 2@  @ H@H  @  @ h(73Q \EOF.ACTION 53Q CLOSEF 21Q EOFP) (62Q STREAM 42Q STREAM 27Q STREAM 13Q 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) 3@ *@  @ H@H  i(53Q CLOSEF 21Q EOFP) (42Q STREAM 27Q STREAM 13Q STREAM 3 STREAM) () %%CONCATENATED-STREAM-DEVICE-OPENFILE D1 (I 4 DEVICE I 3 PARAMETERS I 2 RECOG I 1 ACCESS I 0 NAME) AgAgAghl dDgCHdI dg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dhNIL (145Q \STREAM.DEFAULT.MAXBUFFERS 131Q FILELINELENGTH 114Q \FILEOUTCHARFN 105Q \EOSERROR 76Q \NOIMAGEOPS 67Q \STREAM.NOT.OPEN 60Q \STREAM.NOT.OPEN 36Q STREAMS 17Q APPEND 11Q BOTH 3 OUTPUT) () %%CONCATENATED-STREAM-DEVICE-PEEKBIN D1 (I 1 noErrorFlg? I 0 stream) E@ 4@  @ H@H  @  Ah@ h(101Q \EOF.ACTION 70Q \PEEKBIN 53Q CLOSEF 21Q EOFP) (62Q STREAM 42Q STREAM 27Q STREAM 13Q STREAM 3 STREAM) () %%ECHO-STREAM-DEVICE-BIN D1 (P 0 BYTE I 0 STREAM) @ @H!H(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!(3 %%SYNONYM-STREAM-DEVICE-GET-STREAM) NIL () %%SYNONYM-STREAM-DEVICE-CLOSEFILE D1 (I 0 STREAM) @h @NIL (3 STREAM) () %%SYNONYM-STREAM-DEVICE-EOFP D1 (I 0 STREAM) @ H4HkI(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-OPENFILE D1 (I 4 DEVICE I 3 PARAMETERS I 2 RECOG I 1 ACCESS I 0 NAME) zl dDgCHdI dg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dhNIL (121Q \STREAM.DEFAULT.MAXBUFFERS 105Q FILELINELENGTH 70Q \FILEOUTCHARFN 61Q \EOSERROR 52Q \NOIMAGEOPS 43Q \STREAM.NOT.OPEN 34Q \STREAM.NOT.OPEN 12Q SYMBOL) () %%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) @ (6 READP 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!NIL (3 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) @ H4HkINIL (21Q FDEV 14Q STREAM 3 STREAM) () %%TWO-WAY-STREAM-DEVICE-FORCEOUTPUT D1 (I 1 waitForFinish? I 0 stream) @A (11Q FORCEOUTPUT) (3 STREAM) () %%TWO-WAY-STREAM-DEVICE-OPENFILE D1 (I 4 DEVICE I 3 PARAMETERS I 2 RECOG I 1 ACCESS I 0 NAME) AgAgAghl dDgCHdI gCHdIdg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dhNIL (166Q \STREAM.DEFAULT.MAXBUFFERS 152Q FILELINELENGTH 135Q \FILEOUTCHARFN 126Q \EOSERROR 117Q \NOIMAGEOPS 110Q \STREAM.NOT.OPEN 101Q \STREAM.NOT.OPEN 57Q OUTPUT-STREAM 36Q INPUT-STREAM 17Q APPEND 11Q OUTPUT 3 INPUT) () %%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-SYNONYM-IMAGEOPSA0002 D1 (L (0 STREAM)) @ H&HkI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0005 D1 (L (1 XPOSITION 0 STREAM)) @ H&HAlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0008 D1 (L (1 YPOSITION 0 STREAM)) @ H&HAlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0011 D1 (L (1 FONT 0 STREAM)) @ H&HAlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0014 D1 (L (1 XPOSITION 0 STREAM)) @ H& HAlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0017 D1 (L (1 YPOSITION 0 STREAM)) @ H& HAlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0020 D1 (L (1 DELTAY 0 STREAM)) @ H&HAlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0023 D1 (L (10Q DASHING 7 COLOR 6 OPERATION 5 WIDTH 4 Y2 3 X2 2 Y1 1 X1 0 STREAM)) $ @ H&HABCDEFGGl I(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0026 D1 (L (4 DASHING 3 BRUSH 2 CLOSED 1 KNOTS 0 STREAM)) @ H&HABCDlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0029 D1 (L (5 DASHING 4 BRUSH 3 RADIUS 2 CENTRY 1 CENTERX 0 STREAM)) @ H&HABCDElI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0032 D1 (L (7 DASHING 6 BRUSH 5 ORIENTATION 4 SEMIMAJORRADIUS 3 SEMIMINORRADIUS 2 CENTERY 1 CENTERX 0 STREAM)) "@ H&HABCDEFGlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0035 D1 (L (4 TEXTURE 3 RADIUS 2 CENTERY 1 CENTERX 0 STREAM)) @ H&HABCDlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0038 D1 (L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 STREAM 0 TEXTURE)) "A H&@HBCDEFGlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0041 D1 (L (15Q CLIPPEDSOURCEBOTTOM 14Q CLIPPEDSOURCELEFT 13Q CLIPPINGREGION 12Q TEXTURE 11Q OPERATION 10Q SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 STREAM 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBM)) ,C &@ABCDEFGGGGGGGlH(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (13Q IMAGEOPS 6 STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0044 D1 (L (0 STREAM)) @ &jH(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (13Q IMAGEOPS 6 STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0047 D1 (L (2 Y 1 X 0 STREAM)) @ H& HABlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0050 D1 (L (1 SCALE 0 STREAM)) @ H&"HAlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0053 D1 (L (0 STREAM)) @ H&$HkI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0056 D1 (L (1 YPOSITION 0 STREAM)) @ H&&HAlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0059 D1 (L (1 YPOSITION 0 STREAM)) @ H&(HAlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0062 D1 (L (1 FACTOR 0 STREAM)) @ H&*HAlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0066 D1 (L (1 OPERATION 0 STREAM)) @ H&.HAlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0069 D1 (L (1 COLOR 0 STREAM)) @ H&0HAlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0072 D1 (L (2 RDTBL 1 STRING 0 STREAM)) @ H&2HABlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0075 D1 (L (1 CHARCODE 0 STREAM)) @ H&4HAlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0078 D1 (L (3 CHARCODE 2 B 1 A 0 STREAM)) @ H&6HABClI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0081 D1 (L (1 COLOR 0 STREAM)) @ H&8HAlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0084 D1 (L (2 DIMENSION 1 BITMAP 0 STREAM)) @ H&:HABlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0087 D1 (L (1 REGION 0 STREAM)) @ H&HkI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0093 D1 (L (4 DASHING 3 BRUSH 2 CLOSED 1 POINTS 0 STREAM)) @ H&@HABCDlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0096 D1 (L (4 WINDINGNUMBER 3 OPERATION 2 TEXTURE 1 POINTS 0 STREAM)) @ H&BHABCDlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0099 D1 (L (17Q SCALE 16Q CLIPPEDSOURCEBOTTOM 15Q CLIPPPEDSOURCELEFT 14Q CLIPPINGREGION 13Q TEXTURE 12Q OPERATION 11Q SOURCETYPE 10Q HEIGHT 7 WIDTH 6 DESTINATIONBOTTOM 5 DESTINATIONLEFT 4 DESTINATION 3 SOURCEBOTTOM 2 SOURCELEFT 1 SOURCE 0 STREAM)) 2@ @&DHABCDEFGGGGGGGGGlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0102 D1 (L (4 VALUE 3 Y 2 X 1 STREAM 0 STREAM)) @ H&FHBCDlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0105 D1 (L (1 CHARSET 0 STREAM) F 1 SYN-STREAM) @ Q&HQAlH(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (15Q IMAGEOPS 10Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0108 D1 (L (1 ROTATION 0 STREAM)) @ H&JHAlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0111 D1 (L (7 DASHING 6 BRUSH 5 DEGREES 4 STARTANGLE 3 RADIUS 2 CENTERY 1 CENTERX 0 STREAM)) "@ H&LHABCDEFGlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0114 D1 (L (2 TY 1 TX 0 STREAM)) @ H&NHABlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0117 D1 (L (2 SY 1 SX 0 STREAM)) @ H&PHABlI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0120 D1 (L (0 STREAM) F 1 SYN-STREAM) @ Q&RQkH(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (15Q IMAGEOPS 10Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0123 D1 (L (0 STREAM)) @ H&THkI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPSA0126 D1 (L (0 STREAM)) @ H&VHkI(3 %%SYNONYM-STREAM-DEVICE-GETSTREAM) (17Q IMAGEOPS 12Q STREAM) () %%INITIALIZE-SYNONYM-IMAGEOPS D1 (F 0 \SYNONYM-STREAM-IMAGEOPS) <`dgdgdgdgdgdg dg dgdgdgdgdgdgdgdgdgdg dg"dg$dg&dg(dg*dg,dg.dg0dg2dg4dg6dg8dg:dgdg@dgBdgDdgFdgHdgJdgLdgNdgPdgRdgTdgVcNIL (464Q %%INITIALIZE-SYNONYM-IMAGEOPSA0126 455Q %%INITIALIZE-SYNONYM-IMAGEOPSA0123 446Q %%INITIALIZE-SYNONYM-IMAGEOPSA0120 437Q %%INITIALIZE-SYNONYM-IMAGEOPSA0117 430Q %%INITIALIZE-SYNONYM-IMAGEOPSA0114 421Q %%INITIALIZE-SYNONYM-IMAGEOPSA0111 412Q %%INITIALIZE-SYNONYM-IMAGEOPSA0108 403Q %%INITIALIZE-SYNONYM-IMAGEOPSA0105 374Q %%INITIALIZE-SYNONYM-IMAGEOPSA0102 365Q %%INITIALIZE-SYNONYM-IMAGEOPSA0099 356Q %%INITIALIZE-SYNONYM-IMAGEOPSA0096 347Q %%INITIALIZE-SYNONYM-IMAGEOPSA0093 340Q %%INITIALIZE-SYNONYM-IMAGEOPSA0090 331Q %%INITIALIZE-SYNONYM-IMAGEOPSA0087 322Q %%INITIALIZE-SYNONYM-IMAGEOPSA0084 313Q %%INITIALIZE-SYNONYM-IMAGEOPSA0081 304Q %%INITIALIZE-SYNONYM-IMAGEOPSA0078 275Q %%INITIALIZE-SYNONYM-IMAGEOPSA0075 266Q %%INITIALIZE-SYNONYM-IMAGEOPSA0072 257Q %%INITIALIZE-SYNONYM-IMAGEOPSA0069 250Q %%INITIALIZE-SYNONYM-IMAGEOPSA0066 241Q SYNONYM 232Q %%INITIALIZE-SYNONYM-IMAGEOPSA0062 223Q %%INITIALIZE-SYNONYM-IMAGEOPSA0059 214Q %%INITIALIZE-SYNONYM-IMAGEOPSA0056 205Q %%INITIALIZE-SYNONYM-IMAGEOPSA0053 176Q %%INITIALIZE-SYNONYM-IMAGEOPSA0050 167Q %%INITIALIZE-SYNONYM-IMAGEOPSA0047 160Q %%INITIALIZE-SYNONYM-IMAGEOPSA0044 151Q %%INITIALIZE-SYNONYM-IMAGEOPSA0041 142Q %%INITIALIZE-SYNONYM-IMAGEOPSA0038 133Q %%INITIALIZE-SYNONYM-IMAGEOPSA0035 124Q %%INITIALIZE-SYNONYM-IMAGEOPSA0032 115Q %%INITIALIZE-SYNONYM-IMAGEOPSA0029 106Q %%INITIALIZE-SYNONYM-IMAGEOPSA0026 77Q %%INITIALIZE-SYNONYM-IMAGEOPSA0023 70Q %%INITIALIZE-SYNONYM-IMAGEOPSA0020 61Q %%INITIALIZE-SYNONYM-IMAGEOPSA0017 52Q %%INITIALIZE-SYNONYM-IMAGEOPSA0014 43Q %%INITIALIZE-SYNONYM-IMAGEOPSA0011 34Q %%INITIALIZE-SYNONYM-IMAGEOPSA0008 25Q %%INITIALIZE-SYNONYM-IMAGEOPSA0005 16Q %%INITIALIZE-SYNONYM-IMAGEOPSA0002 7 SYNONYM 2 IMAGEOPSTYPE#) () %%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 c g 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 NIL g`dgdjdjdk djpdj0dj@djPdj`dh(dgdgdgdgdgdgdgdgdg dg:dgdg dg"dg$dg4dg6dg8dg*dg dgdgRdgNdg2dg0dg. g`dgdjdjdk djpdj0dj@djPdj`dh(dgdgdgdgdgdgdgdgdg dg:dgdg dg"dg$dg4dg6dg8dg*dg dgdgRdgNdg2dg0dg. g`dgdjdjdk djpdj0dj@djPdj`dh(dgdgdgdgdgdgdgdgdg dg:dgdg dg"dg$dg4dg6dg8dg*dg dgdgRdgNdg2dg0dg. gg `H dgdg g`dgdjdjdk djpdj0dj@djPdj`dh(dgdgdgdgdgdgdgdgdg dg:dgdg dg"dg$dg4dg6dg8dg*dg dgdgRdgNdg2dg0dg. `dgdjdjdk djpdj0dj@djPdj`dh(dgdgdgdgdgdgdgdgdg dg:dgdg dg"dg$dg4dg6dg8dg*dg0dgdgRdgNdg2dg.(1770Q \DEFINEDEVICE 1403Q \DEFINEDEVICE 1361Q NCREATE2 1347Q \GETDEVICEFROMNAME 1336Q \DEFINEDEVICE 751Q \DEFINEDEVICE 364Q \DEFINEDEVICE) (2343Q \FILL-POINTER-STREAM-DEVICE 2335Q \IS.NOT.RANDACCESSP 2326Q \IS.NOT.RANDACCESSP 2317Q NILL 2310Q NILL 2301Q \ILLEGAL.DEVICEOP 2272Q %%FILL-POINTER-STREAM-DEVICE-GETFILEPTR 2263Q NILL 2254Q \GENERIC.BOUTS 2245Q \ILLEGAL.DEVICEOP 2236Q NILL 2227Q \ILLEGAL.DEVICEOP 2220Q \ILLEGAL.DEVICEOP 2211Q NILL 2202Q \ILLEGAL.DEVICEOP 2173Q NILL 2164Q \GENERATENOFILES 2155Q NILL 2146Q NILL 2137Q %%FILL-POINTER-STREAM-DEVICE-CLOSEFILE 2130Q NILL 2121Q NILL 2112Q NILL 2103Q NILL 2074Q NILL 2000Q FILL-POINTER-STREAM-DEVICE 1773Q FDEVTYPE# 1762Q \IS.NOT.RANDACCESSP 1753Q \ILLEGAL.DEVICEOP 1744Q \IS.NOT.RANDACCESSP 1735Q NILL 1726Q NILL 1717Q %%SYNONYM-STREAM-DEVICE-SETFILEINFO 1710Q %%SYNONYM-STREAM-DEVICE-GETFILEINFO 1701Q %%SYNONYM-STREAM-DEVICE-FORCEOUTPUT 1672Q \GENERIC.BOUTS 1663Q \GENERIC.BINS 1654Q %%SYNONYM-STREAM-DEVICE-EOFP 1645Q \GENERIC.READP 1636Q %%SYNONYM-STREAM-DEVICE-PEEKBIN 1627Q %%SYNONYM-STREAM-DEVICE-BOUT 1620Q %%SYNONYM-STREAM-DEVICE-BIN 1611Q NILL 1602Q \GENERATENOFILES 1573Q NILL 1564Q NILL 1555Q %%SYNONYM-STREAM-DEVICE-CLOSEFILE 1546Q NILL 1537Q %%SYNONYM-STREAM-DEVICE-OPENFILE 1530Q NILL 1521Q NILL 1512Q NILL 1416Q SYNONYM-STREAM-DEVICE 1411Q FDEVTYPE# 1406Q SYNONYM-STREAM-DEVICE 1374Q %%ECHO-STREAM-DEVICE-BIN 1365Q ECHO-STREAM-DEVICE 1355Q FDEVTYPE# 1344Q TWO-WAY-STREAM-DEVICE 1341Q ECHO-STREAM-DEVICE 1330Q \IS.NOT.RANDACCESSP 1321Q \ILLEGAL.DEVICEOP 1312Q \IS.NOT.RANDACCESSP 1303Q NILL 1274Q NILL 1265Q NILL 1256Q NILL 1247Q %%TWO-WAY-STREAM-DEVICE-FORCEOUTPUT 1240Q \GENERIC.BOUTS 1231Q \GENERIC.BINS 1222Q %%TWO-WAY-STREAM-DEVICE-EOFP 1213Q \GENERIC.READP 1204Q %%TWO-WAY-STREAM-DEVICE-PEEKBIN 1175Q %%TWO-WAY-STREAM-DEVICE-BOUT 1166Q %%TWO-WAY-STREAM-DEVICE-BIN 1157Q NILL 1150Q \GENERATENOFILES 1141Q NILL 1132Q NILL 1123Q %%TWO-WAY-STREAM-DEVICE-CLOSEFILE 1114Q NILL 1105Q %%TWO-WAY-STREAM-DEVICE-OPENFILE 1076Q NILL 1067Q NILL 1060Q NILL 764Q TWO-WAY-STREAM-DEVICE 757Q FDEVTYPE# 754Q TWO-WAY-STREAM-DEVICE 743Q \IS.NOT.RANDACCESSP 734Q \ILLEGAL.DEVICEOP 725Q \IS.NOT.RANDACCESSP 716Q NILL 707Q NILL 700Q NILL 671Q NILL 662Q NILL 653Q NILL 644Q \GENERIC.BINS 635Q %%CONCATENATED-STREAM-DEVICE-EOFP 626Q \GENERIC.READP 617Q %%CONCATENATED-STREAM-DEVICE-PEEKBIN 610Q NILL 601Q %%CONCATENATED-STREAM-DEVICE-BIN 572Q NILL 563Q \GENERATENOFILES 554Q NILL 545Q NILL 536Q %%CONCATENATED-STREAM-DEVICE-CLOSEFILE 527Q NILL 520Q %%CONCATENATED-STREAM-DEVICE-OPENFILE 511Q NILL 502Q NILL 473Q NILL 377Q CONCATENATED-STREAM-DEVICE 372Q FDEVTYPE# 367Q CONCATENATED-STREAM-DEVICE 356Q \IS.NOT.RANDACCESSP 347Q \ILLEGAL.DEVICEOP 340Q \IS.NOT.RANDACCESSP 331Q NILL 322Q NILL 313Q NILL 304Q NILL 275Q %%BROADCAST-STREAM-DEVICE-FORCEOUTPUT 266Q NILL 257Q \GENERIC.BINS 250Q TRUE 241Q NILL 232Q NILL 223Q %%BROADCAST-STREAM-DEVICE-BOUT 214Q NILL 205Q NILL 176Q \GENERATENOFILES 167Q NILL 160Q NILL 151Q %%BROADCAST-STREAM-DEVICE-CLOSEFILE 142Q NILL 133Q %%BROADCAST-STREAM-DEVICE-OPENFILE 124Q NILL 115Q NILL 106Q NILL 12Q BROADCAST-STREAM-DEVICE 5 FDEVTYPE# 2 BROADCAST-STREAM-DEVICE) () (%%INITIALIZE-CLSTREAM-TYPES) (%%INITIALIZE-STANDARD-STREAMS) (%%INITIALIZE-SYNONYM-IMAGEOPS) (PUTPROPS CLSTREAMS FILETYPE COMPILE-FILE) (REMPROP (QUOTE FILE-STREAM-POSITION) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS FILE-STREAM-POSITION SETF-INVERSE SETFILEPTR) (PUTPROPS CLSTREAMS COPYRIGHT ("Xerox Corporation" 1985 1986)) STOP