(FILECREATED "13-Aug-84 14:24:22" ("compiled on " {PHYLUM}<3-LISP>AUG>PRIMIT.FPKG;1) " 8-Jun-84 11:17:20" tcompl%'d in WORK dated "21-Jun-84 10:50:28") (FILECREATED "13-Aug-84 14:23:39" {PHYLUM}<3-LISP>AUG>PRIMIT.FPKG;1 18357 changes to: (FNS EMACS.SETCARETPTR EMACS.SETFILEPTR EMACS.SHOWCARET EMACS.GETFILEPTR EMACS.NUMERIC.ARG EMACS.NUMERIC.ARG.P EMACS.CHAR.FWD EMACS.CHAR.BACK EMACS.POINT EMACS.WORD.FWD EMACS.WORD.BACK EMACS.WORD.END EMACS.WORD.BEGINNING EMACS.SEXPR.FWD EMACS.SEXPR.BACK SKIP.PREFIX.CHARACTERS.BACK EMACS.BALANCED.SEXPR.BACK EMACS.PARA.BEGINNING EMACS.PARA.END EMACS.BOL EMACS.EOL EMACS.REGION.BEGINNING EMACS.REGION.END EMACS.FILENAME EMACS.PUT EMACS.GET EMACS.SAVE.ALL.FILES EMACS.BOFP EMACS.EOFP EMACS.DELETE EMACS.MARK.REGION EMACS.INIT.ARRAY EMACS.SKIP.SYNTAX.FWD EMACS.SKIPTO.SYNTAX.FWD EMACS.SKIP.SYNTAX.BACK EMACS.SKIPTO.SYNTAX.BACK EMACS.BACKPEEKBIN)) EMACS.SETCARETPTR D1 (I 1 PTR I 0 STREAM) '@Adjj@ HdIIkjg @A (44Q EMACS.SETFILEPTR 37Q TEDIT.SETSEL 13Q GETEOFPTR) (34Q LEFT) () EMACS.SETFILEPTR D1 (P 0 EOF I 1 PTR I 0 STREAM) &@ Hj@HdAA @HdAA h(42Q SETFILEPTR 26Q SETFILEPTR 3 GETEOFPTR) NIL () EMACS.SHOWCARET D1 (P 0 PTR I 0 STREAM) @ X@H @ @H h(32Q EMACS.SETCARETPTR 25Q TEDIT.NORMALIZECARET 14Q EMACS.SETCARETPTR 6 EMACS.GETFILEPTR) (20Q STREAM) () EMACS.GETFILEPTRA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 STREAM) P h(3 GETFILEPTR) NIL () EMACS.GETFILEPTR D1 (I 0 STREAM) o j(6 EMACS.GETFILEPTRA0001) NIL ( 3 (DUMMY.FOR.ERRORSET)) EMACS.NUMERIC.ARG D1 (I 0 STREAM) @ g k(16Q GETWINDOWUSERPROP 10Q \TEDIT.MAINW) (13Q NUMERIC.ARG 3 STREAM) () EMACS.NUMERIC.ARG.P D1 (I 0 STREAM) @ g (16Q GETWINDOWUSERPROP 10Q \TEDIT.MAINW) (13Q NUMERIC.ARG 3 STREAM) () EMACS.CHAR.FWD D1 (I 1 QTY I 0 STREAM) @d @ AkHdII (33Q EMACS.SETFILEPTR 10Q EMACS.GETFILEPTR 4 GETEOFPTR) NIL () EMACS.CHAR.BACK D1 (I 1 QTY I 0 STREAM) @d AkjHHj (27Q EMACS.SETFILEPTR 4 EMACS.GETFILEPTR) NIL () EMACS.POINT D1 (I 0 STREAM) @ @ (5 \BACKBIN) NIL () EMACS.WORD.FWD D1 (P 1 I I 1 QTY I 0 STREAM F 2 EMACS.WS F 3 EMACS.NONWS) $AdkkkIHh@R @S IkY(33Q EMACS.SKIP.SYNTAX.FWD 25Q EMACS.SKIP.SYNTAX.FWD) NIL () EMACS.WORD.BACK D1 (P 1 I I 1 QTY I 0 STREAM F 2 EMACS.WS F 3 EMACS.NONWS) $AdkkkIHh@R @S IkY(33Q EMACS.SKIP.SYNTAX.BACK 25Q EMACS.SKIP.SYNTAX.BACK) NIL () EMACS.WORD.END D1 (I 0 STREAM F 0 EMACS.NONWS F 1 EMACS.WS) @P @Q (11Q EMACS.SKIP.SYNTAX.FWD 4 EMACS.SKIP.SYNTAX.FWD) NIL () EMACS.WORD.BEGINNING D1 (I 0 STREAM F 0 EMACS.NONWS F 1 EMACS.WS) @P @Q (11Q EMACS.SKIP.SYNTAX.BACK 4 EMACS.SKIP.SYNTAX.BACK) NIL () EMACS.SEXPR.FWDA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 RESETVARSLST F 1 STREAM F 2 RESETY) !gd go PcQ ci(33Q READ 21Q SETTOPVAL 6 GETTOPVAL) (12Q \BQUOTELEVEL 2 \BQUOTELEVEL) ( 16Q 7777777777Q) EMACS.SEXPR.FWD D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 STREAM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q EMACS.SEXPR.FWDA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) EMACS.SEXPR.BACK D1 (P 1 CLOSE.PTR P 0 CHAR I 0 STREAM F 2 EMACS.WS F 3 EMACS.WORD) } @R @ @ Xddl)@l(l) @ hl]@l[l] @ hHdl"!@ @ Xl"@ l%@ o @S @ h(171Q SKIP.PREFIX.CHARACTERS.BACK 165Q EMACS.SKIP.SYNTAX.BACK 157Q ERROR! 153Q MEMBER 142Q \BACKBIN 131Q EMACS.BACKPEEKBIN 117Q \BACKBIN 112Q EMACS.BOFP 74Q SKIP.PREFIX.CHARACTERS.BACK 67Q EMACS.BALANCED.SEXPR.BACK 51Q SKIP.PREFIX.CHARACTERS.BACK 44Q EMACS.BALANCED.SEXPR.BACK 24Q \BACKBIN 17Q ERROR! 13Q EMACS.BOFP 7 EMACS.SKIP.SYNTAX.BACK) NIL ( 150Q (50Q 133Q)) SKIP.PREFIX.CHARACTERS.BACK D1 (I 0 STREAM F 0 EMACS.WS) +@P @ @ o @ @P @P (50Q EMACS.SKIP.SYNTAX.FWD 40Q EMACS.SKIP.SYNTAX.BACK 32Q \BACKBIN 25Q MEMBER 16Q EMACS.BACKPEEKBIN 10Q EMACS.BOFP 4 EMACS.SKIP.SYNTAX.BACK) NIL ( 22Q (54Q 136Q 134Q 47Q)) EMACS.BALANCED.SEXPR.BACKA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 CHAR P 0 CLOSE.PTR F 2 STREAM F 3 EMACS.LAST.CLOSE.PTR F 4 EMACS.LAST.STREAM.FLASHED F 5 CLOSER F 6 EMACS.LAST.CLOSE.CHARACTER F 7 EMACS.LAST.CORRESPONDING.OPEN.PTR F 10Q OPENER) QR SH TRUVRW .R R YWIR HcRcUc R chh(110Q EMACS.GETFILEPTR 67Q \BACKBIN 62Q ERROR! 47Q EMACS.BACKPEEKBIN 42Q EMACS.SEXPR.BACK 34Q EMACS.SETFILEPTR 13Q EQUAL 3 EMACS.GETFILEPTR) NIL () EMACS.BALANCED.SEXPR.BACK D1 (I 2 CLOSER I 1 OPENER I 0 STREAM F 0 EMACS.LAST.STREAM.FLASHED) o dc(15Q ERROR! 6 EMACS.BALANCED.SEXPR.BACKA0001) NIL ( 3 (DUMMY.FOR.ERRORSET)) EMACS.PARA.BEGINNING D1 (I 1 PTR I 0 STREAM F 0 EMACS.NONCR) A@A @P @ (20Q EMACS.GETFILEPTR 14Q EMACS.SKIP.SYNTAX.BACK 6 EMACS.SETFILEPTR) NIL () EMACS.PARA.END D1 (I 1 PTR I 0 STREAM F 0 EMACS.NONCR) A@A @P @ (20Q EMACS.GETFILEPTR 14Q EMACS.SKIP.SYNTAX.FWD 6 EMACS.SETFILEPTR) NIL () EMACS.BOL D1 (I 1 PTR I 0 STREAM) @A (4 EMACS.PARA.BEGINNING) NIL () EMACS.EOL D1 (I 1 PTR I 0 STREAM) @A (4 EMACS.PARA.END) NIL () EMACS.REGION.BEGINNING D1 (I 1 SELECTION I 0 STREAM) @Ad (21Q EMACS.SETCARETPTR) (14Q SELECTION 7 TEXTOBJ) () EMACS.REGION.END D1 (I 1 SELECTION I 0 STREAM) @Ad (21Q EMACS.SETCARETPTR) (14Q SELECTION 7 TEXTOBJ) () EMACS.FILENAME D1 (P 1 UNPACKED P 0 FILENAME I 1 INCREMENT.VERSION I 0 STREAM F 2 VERSION) H@,AHH g cgRdd AgRk؀hgH (105Q PACKFILENAME 40Q LISTGET 32Q UNPACKFILENAME) (101Q BODY 67Q NONE 46Q VERSION 35Q VERSION 15Q STREAM 10Q TEXTOBJ 3 STREAM) () EMACS.PUT D1 (P 3 OFILE P 2 FILE P 1 OUTNAME P 0 TEXTOBJ I 2 ALWAYS.WRITE I 1 DONT.ASK I 0 STREAM) @ 1@.B@oo A@ i@g hZ>H,`)H, [Kg HoKd Ho [ @K @o@ o @ h(241Q EMACS.SET.BUFFER.NAME 234Q TEDIT.NOTIFY 225Q CONCAT 222Q EMACS.FILENAME 210Q TEDIT.PUT 175Q U-CASE 172Q MKATOM 166Q TEDIT.GETINPUT 155Q TEDIT.GETINPUT 152Q PACKFILENAME 136Q LISTPUT 125Q UNPACKFILENAME 65Q EMACS.FILENAME 53Q EMACS.FILENAME 41Q TEDIT.NOTIFY 3 TEXTOBJ) (202Q STREAM 133Q VERSION 120Q STREAM 113Q TEXTOBJ 104Q STREAMTYPE# 76Q TEXTOBJ 62Q NONE 17Q TEXTOBJ 12Q STREAM) ( 231Q (CLEARW) 216Q "Written: " 163Q "File to PUT to: " 144Q "File to PUT to: " 36Q (CLEARW) 32Q "(No changes need to be written)") EMACS.GET D1 (P 1 WINDOW P 0 FILENAME I 1 FILENAME I 0 STREAM) ?A @o Hd' Y@H @j @ . h(73Q TTY.PROCESS 66Q \INSUREWINDOW 62Q EMACS.SET.BUFFER.NAME 55Q EMACS.SETCARETPTR 47Q TEDIT.GET 32Q ALREADY.BEING.EDITED 20Q U-CASE 15Q MKATOM 12Q TEDIT.GETINPUT) (41Q STREAM) ( 7 "File to Get: ") EMACS.SAVE.ALL.FILESA0001A0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 BUFFER) P 0 i(13Q EMACS.PUT 3 TEXTOBJ) (6 TEXTOBJ) () EMACS.SAVE.ALL.FILESA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 BUFFER) P .oi i(21Q EMACS.SAVE.ALL.FILESA0001A0002 3 TEXTOBJ) (6 TEXTOBJ) ( 15Q (DUMMY.FOR.ERRORSET)) EMACS.SAVE.ALL.FILES D1 (P 0 BUFFER F 1 EMACS.ALL.BUFFERS) Qdo g h(30Q PRINT 15Q EMACS.SAVE.ALL.FILESA0001) (25Q Done.) ( 12Q (DUMMY.FOR.ERRORSET)) EMACS.BOFP D1 (I 0 STREAM) @ j(3 EMACS.GETFILEPTR) NIL () EMACS.EOFP D1 (I 0 STREAM) @ @ j(7 GETEOFPTR 3 EMACS.GETFILEPTR) NIL () EMACS.DELETE D1 (P 1 LENGTH P 0 PTR I 2 PTR2 I 1 PTR1 I 0 STREAM) W@ AdjBjhABBAbbjAAjb@ dBBbdkAY@AkI @HdAdBAI h(123Q EMACS.SETFILEPTR 101Q TEDIT.DELETE 53Q GETEOFPTR 3 EMACS.GETFILEPTR) NIL () EMACS.MARK.REGION D1 (P 0 PTR I 2 PTR2 I 1 PTR1 I 0 STREAM) 8@ ABBAbbjAAjb@ dBBb@AkBkAi h(64Q TEDIT.SETSEL 37Q GETEOFPTR 3 EMACS.GETFILEPTR) NIL () EMACS.INIT.ARRAY D1 (F 2 EMACS.ARRAY F 3 EMACS.NONCR F 4 EMACS.WS F 5 EMACS.WORD F 6 EMACS.NONWS F 7 EMACS.LAST.CLOSE.CHARACTER F 10Q EMACS.CR F 11Q EMACS.LAST.STREAM.FLASHED F 12Q EMACS.LAST.CORRESPONDING.OPEN.PTR F 13Q EMACS.LAST.CLOSE.PTR)  Rngjd cljIHRISV*IkYl l l hdRHTS*Rl TW*hcdcdcdcljIHRIRI(U*IkYodRHRH(Um*h(14Q ARRAY) (7 BYTE) ( 164Q (50Q 51Q 133Q 135Q 15Q 12Q 11Q 40Q 47Q 136Q 134Q 54Q 42Q)) EMACS.SKIP.SYNTAX.FWD D1 (I 1 CLASS I 0 STREAM F 0 EMACS.ARRAY) @ P@ (Ajh@ (11Q \PEEKBIN 3 EMACS.EOFP) NIL () EMACS.SKIPTO.SYNTAX.FWD D1 (I 1 CLASS I 0 STREAM F 0 EMACS.ARRAY) @ P@ (Ajh(3 EMACS.EOFP) NIL () EMACS.SKIP.SYNTAX.BACK D1 (I 1 CLASS I 0 STREAM F 0 EMACS.ARRAY) @ P@ (Ajh@ (25Q \BACKBIN 11Q EMACS.BACKPEEKBIN 3 EMACS.BOFP) NIL () EMACS.SKIPTO.SYNTAX.BACK D1 (I 1 CLASS I 0 STREAM F 0 EMACS.ARRAY) @ P@ (Ajh(11Q \BACKBIN 3 EMACS.BOFP) NIL () EMACS.BACKPEEKBIN D1 (I 0 STREAM) @ j@ (13Q \BACKPEEKBIN 3 GETFILEPTR) NIL () (PRETTYCOMPRINT PRIMITCOMS) (RPAQQ PRIMITCOMS ((INITVARS (EMACS.ARRAY NIL) (EMACS.CR 1) (EMACS.WS 2) (EMACS.NONCR 4) (EMACS.NONWS 8) (EMACS.WORD 16)) (FNS EMACS.SETCARETPTR EMACS.SETFILEPTR EMACS.SHOWCARET EMACS.GETFILEPTR EMACS.NUMERIC.ARG EMACS.NUMERIC.ARG.P EMACS.CHAR.FWD EMACS.CHAR.BACK EMACS.POINT EMACS.WORD.FWD EMACS.WORD.BACK EMACS.WORD.END EMACS.WORD.BEGINNING EMACS.SEXPR.FWD EMACS.SEXPR.BACK SKIP.PREFIX.CHARACTERS.BACK EMACS.BALANCED.SEXPR.BACK EMACS.PARA.BEGINNING EMACS.PARA.END EMACS.BOL EMACS.EOL EMACS.REGION.BEGINNING EMACS.REGION.END EMACS.FILENAME EMACS.PUT EMACS.GET EMACS.SAVE.ALL.FILES EMACS.BOFP EMACS.EOFP EMACS.DELETE EMACS.MARK.REGION EMACS.INIT.ARRAY EMACS.SKIP.SYNTAX.FWD EMACS.SKIPTO.SYNTAX.FWD EMACS.SKIP.SYNTAX.BACK EMACS.SKIPTO.SYNTAX.BACK EMACS.BACKPEEKBIN))) (RPAQ? EMACS.ARRAY NIL) (RPAQ? EMACS.CR 1) (RPAQ? EMACS.WS 2) (RPAQ? EMACS.NONCR 4) (RPAQ? EMACS.NONWS 8) (RPAQ? EMACS.WORD 16) (PUTPROPS PRIMIT.FPKG COPYRIGHT ("David Vinayak Wallace" 1984)) NIL