(FILECREATED "24-Jan-87 17:09:27" ("compiled on " {PHYLUM}<3-LISP>COURSE>KOTO>IO.;1) "12-Nov-85 14:59:23" bcompl'd in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED " 9-Sep-85 20:56:45" {PHYLUM}<3-LISP>COURSE>JCAI>IO.;2 15886 changes to: (FNS PRIM-CHAR-IN PRIM-CHAR-OUT PRIM-CHAR-PEEK PRIM-CHAR-STUFF PRIM-CLOSE-STREAM PRIM-CLOSEALL PRIM-EMPTY-STREAM? PRIM-EXTERNALIZE PRIM-INTERNALIZE PRIM-OPEN-STREAM PRIM-PRINT PRIM-PRINT-STRUCTURE PRIM-READ-STRUCTURE PRIM-STRING-IN PRIM-STRING-OUT) previous date: "16-Aug-84 02:10:17" {PHYLUM}<3-LISP>AUG>IO.;2) PRIM-CHAR-INA0002A0003 D1 (NAME ERRORSET F 0 STREAM F 1 CH) P` ch(6 READC) (3 NLISP-READ-TABLE) () PRIM-CHAR-INA0002 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 RESETY) gi hhPco ci(27Q PRIM-CHAR-INA0002A0003 6 CONTROL) (2 CONTROL) ( 24Q (PRIM-CHAR-INA0002A0003)) PRIM-CHAR-IN D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 1 STREAM P 0 CH I 0 STREAM-ARG F 6 LISPXHIST F 7 RESETVARSLST) ]0@ @o@ YdiV!Wog hg] MH`H dJI o h(131Q NLISP-ERROR 121Q CLOSEF? 106Q CHCON1 72Q ERROR! 64Q RESETRESTORE 52Q PRIM-CHAR-INA0002 26Q PRIMARY-STREAM 21Q PHI-TYPE-ERROR 6 STREAMP) (101Q CHARACTER-DESIGNATORTYPE# 60Q ERROR 47Q INTERNAL) ( 126Q "end of stream" 44Q (PRIM-CHAR-INA0002) 15Q "stream") PRIM-CHAR-OUTA0003 D1 (NAME ERRORSET F 0 CHAR F 1 STREAM) PQ i(4 PRIN1) NIL () PRIM-CHAR-OUT D1 (P 1 CHAR P 0 STREAM I 1 CHAR-ARG I 0 STREAM-ARG) d @ @o@ XdiA`AoA  YHdi`gA hHg o o `(136Q PRIM-CHAR-OUTA0003 126Q NLISP-ERROR 116Q OPENP 105Q SEND.TO.EMACS 63Q CHARACTER 53Q PHI-TYPE-ERROR 26Q PRIMARY-STREAM 21Q PHI-TYPE-ERROR 6 STREAMP) (141Q HOKAY 113Q OUTPUT 101Q CHARACTER 75Q EMACS.TOP.LEVEL 56Q CHARACTER-DESIGNATOR 37Q CHARACTER-DESIGNATORTYPE#) ( 133Q (PRIM-CHAR-OUTA0003) 123Q "stream not open for output" 47Q "character" 15Q "stream") PRIM-CHAR-PEEKA0002A0003 D1 (NAME ERRORSET F 0 STREAM F 1 CH) P` ch(6 PEEKC) (3 NLISP-READ-TABLE) () PRIM-CHAR-PEEKA0002 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 RESETY) gi hhPco ci(27Q PRIM-CHAR-PEEKA0002A0003 6 CONTROL) (2 CONTROL) ( 24Q (PRIM-CHAR-PEEKA0002A0003)) PRIM-CHAR-PEEK D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 1 STREAM P 0 CH I 0 STREAM-ARG F 6 LISPXHIST F 7 RESETVARSLST) ]0@ @o@ YdiV!Wog hg] MH`H dJI o h(131Q NLISP-ERROR 121Q CLOSEF? 106Q CHCON1 72Q ERROR! 64Q RESETRESTORE 52Q PRIM-CHAR-PEEKA0002 26Q PRIMARY-STREAM 21Q PHI-TYPE-ERROR 6 STREAMP) (101Q CHARACTER-DESIGNATORTYPE# 60Q ERROR 47Q INTERNAL) ( 126Q "end of stream" 44Q (PRIM-CHAR-PEEKA0002) 15Q "stream") PRIM-CHAR-STUFF D1 (P 1 STREAM P 0 CH I 1 CHAR-ARG I 0 STREAM-ARG) 7 @ @o@ YA`AoA  Xo h(63Q NLISP-ERROR 53Q CHARACTER 43Q PHI-TYPE-ERROR 21Q PHI-TYPE-ERROR 6 STREAMP) (46Q CHARACTER-DESIGNATOR 27Q CHARACTER-DESIGNATORTYPE#) ( 60Q "stuffing characters not supported yet" 37Q "character" 15Q "stream") PRIM-CLOSE-STREAM D1 (P 0 S I 0 STREAM) "@ @o@ Xd `gh(26Q CLOSEF? 21Q PHI-TYPE-ERROR 6 STREAMP) (34Q OK 31Q *QUOTE*) ( 15Q "stream") PRIM-CLOSEALL D1 NIL `(2 CLOSEALL) (5 HOKAY) () PRIM-EMPTY-STREAM? D1 (P 0 S I 0 STREAM) ,@ @o@ Xd`H` hhh(43Q SKIPSEPRS 26Q PRIMARY-STREAM 21Q PHI-TYPE-ERROR 6 STREAMP) (40Q NLISP-READ-TABLE 33Q $FALSE) ( 15Q "stream") PRIM-EXTERNALIZEA0001 D1 (NAME ERRORSET L (0 NIL) P 1 I F 2 TEMP-STREAM F 3 RESETVARSLST F 4 SIZE F 5 RESULT F 6 STRUCTURE F 7 RESETY) \o cgRhhhScV R hddR R c c Rj TkIHUIR +IkYR ci(126Q CLOSEF? 73Q SETFILEPTR 63Q ALLOCSTRING 56Q GETEOFPTR 51Q PRINTDEF 41Q POSITION 35Q PREPRINT 6 OPENTEXTSTREAM) (14Q CLOSEF?) ( 3 "") PRIM-EXTERNALIZE D1 (P 6 RESETZ P 5 RESETY P 4 LISPXHIST P 3 RESULT P 2 SIZE P 1 STRUCTURE P 0 TEMP-STREAM I 0 STRUCT-ARG F 7 LISPXHIST F 10Q RESETVARSLST) ,@@ YW!Wog hg^ NK(50Q ERROR! 42Q RESETRESTORE 30Q PRIM-EXTERNALIZEA0001 6 STRIP-EXPECTED-HANDLE) (36Q ERROR 25Q INTERNAL) ( 22Q (PRIM-EXTERNALIZEA0001)) PRIM-INTERNALIZEA0002A0003 D1 (NAME ERRORSET F 0 STREAM F 1 EXP) P` ci(6 READ) (3 NLISP-READ-TABLE) () PRIM-INTERNALIZEA0002 D1 (NAME ERRORSET F 0 STREAM F 1 RESETVARSLST F 2 EXP F 3 STRING F 4 RESETY) ]o cgPhhhQcSP oP Pj P` o RRgo P ci(127Q CLOSEF? 122Q NLISP-ERROR 76Q PRIM-INTERNALIZEA0002A0003 65Q SKIPSEPRS 55Q SETFILEPTR 47Q PRIN1 36Q PRIN1 6 OPENTEXTSTREAM) (107Q .; 62Q NLISP-READ-TABLE 14Q CLOSEF?) ( 117Q "internalization error" 73Q (PRIM-INTERNALIZEA0002A0003) 43Q " " 3 "") PRIM-INTERNALIZE D1 (P 6 RESETZ P 5 RESETY P 4 LISPXHIST P 2 STREAM P 1 STRING P 0 EXP I 0 STRING-ARG F 7 LISPXHIST F 10Q RESETVARSLST) C@@@o@ YW!Wog hg^ NH `Kh(70Q DIGEST 62Q ERROR! 54Q RESETRESTORE 42Q PRIM-INTERNALIZEA0002 20Q PHI-TYPE-ERROR) (74Q *QUOTE* 50Q ERROR 37Q INTERNAL) ( 34Q (PRIM-INTERNALIZEA0002) 14Q "string") PRIM-OPEN-STREAMA0002 D1 (NAME ERRORSET F 0 FILE F 1 STREAM) Phddo ci(13Q OPENTEXTSTREAM) NIL ( 7 ((CACHE NIL))) PRIM-OPEN-STREAM D1 (P 3 FNAME P 2 RESULT P 1 FILE P 0 STREAM I 0 FILE-NAME-STRING) hP@@o@ [d YhXo H\dl o / Hj Hlo Ll*o H h(144Q ERROR! 140Q CLOSEF? 133Q NLISP-ERROR 115Q NLISP-ERROR 100Q SETFILEPTR 72Q RANDACCESSP 65Q NLISP-ERROR 45Q ERRORN 37Q PRIM-OPEN-STREAMA0002 25Q MKATOM 20Q PHI-TYPE-ERROR) NIL ( 130Q "bad file name" 112Q "unable to find that file" 62Q "unable to open that file" 34Q (PRIM-OPEN-STREAMA0002) 14Q "string") PRIM-PRINTA0004 D1 (NAME ERRORSET P 0 X F 1 STREAM F 2 ARGS) }RudH`hH`QigH QHQ JH`"`QigH 1H Q "`QigH H Q hddQ i(163Q PRINTDEF 153Q POSITION 147Q PREPRINT 142Q SEND.TO.EMACS 121Q PRIN1 115Q CHARACTER 102Q SEND.TO.EMACS 51Q PRIN1 42Q SEND.TO.EMACS) (136Q STRUCTURE 126Q EMACS.TOP.LEVEL 110Q CHARACTER-DESIGNATOR 76Q CHARACTER 66Q EMACS.TOP.LEVEL 60Q CHARACTER-DESIGNATORTYPE# 36Q STRING 26Q EMACS.TOP.LEVEL 13Q *RAIL*) () PRIM-PRINT D1 (P 0 STREAM I 0 ARGS) Z @@d`o@ `:@Y IoI Xi`Hg o o `h(122Q PRIM-PRINTA0004 112Q NLISP-ERROR 102Q OPENP 63Q PRIMARY-STREAM 57Q PHI-TYPE-ERROR 44Q STREAMP 27Q PHI-TYPE-ERROR) (125Q HOKAY 77Q OUTPUT 72Q EMACS.TOP.LEVEL 33Q *RAIL* 14Q 3TAGTYPE#) ( 117Q (PRIM-PRINTA0004) 107Q "stream not open for output" 53Q "stream" 23Q "sequence") PRIM-PRINT-STRUCTUREA0002 D1 (NAME ERRORSET F 0 STREAM F 1 STRUCTURE) Q P hddP i(17Q PRINTDEF 7 POSITION 3 PREPRINT) NIL () PRIM-PRINT-STRUCTURE D1 (P 1 STRUCTURE P 0 STREAM I 1 STRUCT-ARG I 0 STREAM-ARG) N @ @o@ XA YHiXHi`gI hHg o o `(110Q PRIM-PRINT-STRUCTUREA0002 100Q NLISP-ERROR 70Q OPENP 57Q SEND.TO.EMACS 33Q PRIMARY-STREAM 26Q STRIP-EXPECTED-HANDLE 21Q PHI-TYPE-ERROR 6 STREAMP) (113Q HOKAY 65Q OUTPUT 53Q STRUCTURE 47Q EMACS.TOP.LEVEL) ( 105Q (PRIM-PRINT-STRUCTUREA0002) 75Q "stream not open for output" 15Q "stream") PRIM-READ-STRUCTUREA0003 D1 (NAME ERRORSET) ohdohdd` h(23Q TTYIN) (17Q NLISP-READ-TABLE) ( 11Q (READ NORAISE) 3 (NIL)) PRIM-READ-STRUCTUREA0004 D1 (NAME ERRORSET F 0 STREAM F 1 EXP) P` ci(6 READ) (3 NLISP-READ-TABLE) () PRIM-READ-STRUCTURE D1 (P 1 STREAM P 0 EXP I 0 STREAM-ARG) @@ @o@ Y``Jhi``j Idi3o hH`IXdgAo5g $I` o H`I o Hg|H `Kh(265Q DIGEST 246Q NLISP-ERROR 236Q CLOSEF? 231Q ERROR! 222Q ERRORN 210Q PRIM-READ-STRUCTUREA0004 177Q SKIPSEPRS 166Q OPENP 135Q ERROR! 126Q ERRORN 107Q PRIM-READ-STRUCTUREA0003 70Q SETERRORN 37Q GET.FROM.EMACS 25Q PRIMARY-STREAM 21Q PHI-TYPE-ERROR 6 STREAMP) (271Q *QUOTE* 254Q .; 217Q NLISP-ERROR# 174Q NLISP-READ-TABLE 163Q INPUT 146Q .%] 123Q NLISP-ERROR# 114Q NLISP-INTERRUPT 62Q HOKAY 55Q NLISP-INTERRUPT 43Q *QUOTE* 33Q EMACS.TOP.LEVEL) ( 243Q "end of stream" 205Q (PRIM-READ-STRUCTUREA0004) 156Q "Notation error: extraneous #]" 104Q (PRIM-READ-STRUCTUREA0003) 15Q "stream") PRIM-STRING-INA0003A0004 D1 (NAME ERRORSET F 0 STREAM F 1 STRING) P` ch(6 RSTRING) (3 DELIMITER-READ-TABLE) () PRIM-STRING-INA0003 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 RESETY) gi hhPco ci(27Q PRIM-STRING-INA0003A0004 6 CONTROL) (2 CONTROL) ( 24Q (PRIM-STRING-INA0003A0004)) PRIM-STRING-IN D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 STRING P 1 STREAM P 0 CH I 1 DELIM-ARG I 0 STREAM-ARG F 6 LISPXHIST F 7 RESETVARSLST) 0@ @o@ YdiA`AoA  X`H`#Hg` V!Wog hg` g] MJI` JI o h(223Q NLISP-ERROR 213Q CLOSEF? 205Q READC 172Q ERROR! 164Q RESETRESTORE 152Q SETSYNTAX 136Q PRIM-STRING-INA0003 115Q SETSYNTAX 63Q CHARACTER 53Q PHI-TYPE-ERROR 26Q PRIMARY-STREAM 21Q PHI-TYPE-ERROR 6 STREAMP) (202Q NLISP-READ-TABLE 160Q ERROR 147Q DELIMITER-READ-TABLE 144Q OTHER 133Q INTERNAL 112Q DELIMITER-READ-TABLE 107Q SEPRCHAR 104Q LAST-SET-DELIMITER 76Q LAST-SET-DELIMITER 67Q LAST-SET-DELIMITER 56Q CHARACTER-DESIGNATOR 37Q CHARACTER-DESIGNATORTYPE#) ( 220Q "end of stream" 130Q (PRIM-STRING-INA0003) 47Q "character" 15Q "stream") PRIM-STRING-OUTA0003 D1 (NAME ERRORSET F 0 STRING F 1 STREAM) PQ i(4 PRIN1) NIL () PRIM-STRING-OUT D1 (P 1 STRING P 0 STREAM I 1 STRING-ARG I 0 STREAM-ARG) Y @ @o@ XAAoA YHHi`gA hiXHg o o `(123Q PRIM-STRING-OUTA0003 113Q NLISP-ERROR 103Q OPENP 67Q SEND.TO.EMACS 45Q PRIMARY-STREAM 40Q PHI-TYPE-ERROR 21Q PHI-TYPE-ERROR 6 STREAMP) (126Q HOKAY 100Q OUTPUT 63Q STRING 57Q EMACS.TOP.LEVEL) ( 120Q (PRIM-STRING-OUTA0003) 110Q "stream not open for output" 34Q "string" 15Q "stream") (PRETTYCOMPRINT IOCOMS) (RPAQQ IOCOMS ((FNS PRIM-CHAR-IN PRIM-CHAR-OUT PRIM-CHAR-PEEK PRIM-CHAR-STUFF PRIM-CLOSE-STREAM PRIM-CLOSEALL PRIM-EMPTY-STREAM? PRIM-EXTERNALIZE PRIM-INTERNALIZE PRIM-OPEN-STREAM PRIM-PRINT PRIM-PRINT-STRUCTURE PRIM-READ-STRUCTURE PRIM-STRING-IN PRIM-STRING-OUT) (VARS EMACS.TOP.LEVEL) ( GLOBALVARS EMACS.TOP.LEVEL) (SPECVARS NIL) (LOCALVARS T))) (RPAQQ EMACS.TOP.LEVEL NIL) (PUTPROPS IO COPYRIGHT ("The Knights of the Lambda Calculus" 1984 1985)) NIL