(FILECREATED "13-Aug-84 15:52:31" ("compiled on " {PHYLUM}<3-LISP>AUG>EMACS-CHANGES.;1) " 8-Jun-84 11:17:20" tcompl'd in WORK dated "21-Jun-84 10:50:28") (FILECREATED " 7-Jun-84 08:21:09" {PHYLUM}<3-LISP>GUMBY>EMACS-CHANGES.;1 7059 changes to: (VARS EMACS-CHANGESCOMS) (FNS EMACS.SEXPR.FWD SKIP.SUFFIX.CHARACTERS.FWD EMACS.BALANCED.SEXPR.FWD 3LISP.NORMALIZE.REGION \\COM.NORMALIZE.SEXPR.FORWARD \\COM.NORMALIZE.SEXPR.BACKWARDS \\COM.NORMALIZE.DEFINITION \\COM.NORMALISE.BUFFER)) 3LISP.NORMALIZE.REGION D1 (P 10Q I P 3 EOF.PTR P 2 ITS.ME P 1 W P 0 EXEC I 2 END I 1 START I 0 STREAM F 11Q PREVIOUSOWNER) { pg Xdg Y`cI @ [BKkټdLLjMMjbAdBdjNNjb@A BAOO@ Ok_l Wg h(167Q GIVE.TTY.PROCESS 164Q PROCESSPROP 154Q BLOCK 151Q BKSYSCHARCODE 132Q BKSYSCHARCODE 112Q SETFILEPTR 36Q GETEOFPTR 32Q GIVE.TTY.PROCESS 20Q PROCESSPROP 10Q FIND.PROCESS) (161Q WINDOW 24Q \TTY.PROCESS 15Q WINDOW 5 EXEC) () EMACS.BALANCED.SEXPR.FWD D1 (P 0 CHAR I 2 CLOSER I 1 OPENER I 0 STREAM) @ XB@ @ h(16Q EMACS.SEXPR.FWD 6 \PEEKBIN) NIL () EMACS.SEXPR.FWD D1 (P 1 CLOSE.PTR P 0 CHAR I 0 STREAM F 2 CHAR F 3 EMACS.WS F 4 EMACS.WORD)  @S @ o @ Xdl(@l(l) #l[@l[l] Hl"@ @ Xdl".@ Rdl)o Rl]o @T @ l%@ (164Q SKIP.SUFFIX.CHARACTERS.FWD 160Q EMACS.SKIP.SYNTAX.FWD 152Q ERROR 135Q ERROR 116Q SKIP.SUFFIX.CHARACTERS.FWD 77Q EMACS.EOFP 64Q EMACS.BALANCED.SEXPR.FWD 46Q EMACS.BALANCED.SEXPR.FWD 24Q ERROR 14Q EMACS.EOFP 7 EMACS.SKIP.SYNTAX.FWD) NIL ( 147Q "Unbalanced parenthesis" 132Q "Unbalanced parenthesis" 21Q "End of stream") SKIP.SUFFIX.CHARACTERS.FWD D1 (L (0 STREAM)) hNIL NIL () \\COM.NORMALISE.BUFFER D1 (P 0 PTR I 0 STREAM) @ X@j@ k @H h(27Q EMACS.SETCARETPTR 22Q 3LISP.NORMALIZE.REGION 15Q GETEOFPTR 6 EMACS.GETFILEPTR) NIL () \\COM.NORMALIZE.DEFINITIONA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 EXP F 1 STREAM F 2 NLISP-READ-TABLE) gcQgl QR ci(27Q DIGEST 24Q READ 16Q EMACS.FLASH) (11Q LEFT 2 NO.DICE) () \\COM.NORMALIZE.DEFINITION D1 (P 3 END.PTR P 2 PTR P 1 START.PTR P 0 EXP I 0 STREAM) N@@ Z@ @ Yo Hg@o @gn @ @IK @J h(112Q EMACS.SETCARETPTR 104Q 3LISP.NORMALIZE.REGION 75Q EMACS.GETFILEPTR 70Q EMACS.FLASH 55Q RINGBELLS 51Q TEDIT.NOTIFY 42Q LAST-ERROR-STRING 27Q \\COM.NORMALIZE.DEFINITIONA0001 17Q EMACS.GETFILEPTR 13Q \\COM.TOP.OF.DEFINITION 6 EMACS.GETFILEPTR) (62Q LEFT 33Q NO.DICE) ( 46Q (CLEARW) 24Q (DUMMY.FOR.ERRORSET)) \\COM.NORMALIZE.SEXPR.BACKWARDSA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 STREAM F 1 EXP F 2 START.PTR F 3 NLISP-READ-TABLE) )gcP P cPgl PS ci(43Q DIGEST 40Q READ 32Q EMACS.FLASH 16Q EMACS.GETFILEPTR 11Q EMACS.SEXPR.BACK) (25Q RIGHT 2 NO.DICE) () \\COM.NORMALIZE.SEXPR.BACKWARDS D1 (P 2 PTR P 1 START.PTR P 0 EXP I 0 STREAM) @0@ Zo Hg@o @gn @IJ @J h(74Q EMACS.SETCARETPTR 66Q 3LISP.NORMALIZE.REGION 57Q EMACS.FLASH 44Q RINGBELLS 40Q TEDIT.NOTIFY 31Q LAST-ERROR-STRING 16Q \\COM.NORMALIZE.SEXPR.BACKWARDSA0001 6 EMACS.GETFILEPTR) (51Q RIGHT 22Q NO.DICE) ( 35Q (CLEARW) 13Q (DUMMY.FOR.ERRORSET)) \\COM.NORMALIZE.SEXPR.FORWARDA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 EXP F 1 STREAM F 2 NLISP-READ-TABLE) gcQR ci(15Q DIGEST 12Q READ) (2 NO.DICE) () \\COM.NORMALIZE.SEXPR.FORWARD D1 (P 2 END.PTR P 1 PTR P 0 EXP I 0 STREAM) N0@ Yo Hg!@o @gn @I@ @IJk @d h(112Q EMACS.SETCARETPTR 107Q EMACS.GETFILEPTR 101Q 3LISP.NORMALIZE.REGION 70Q EMACS.GETFILEPTR 57Q EMACS.FLASH 44Q RINGBELLS 40Q TEDIT.NOTIFY 31Q LAST-ERROR-STRING 16Q \\COM.NORMALIZE.SEXPR.FORWARDA0001 6 EMACS.GETFILEPTR) (51Q RIGHT 22Q NO.DICE) ( 35Q (CLEARW) 13Q (DUMMY.FOR.ERRORSET)) (PRETTYCOMPRINT EMACS-CHANGESCOMS) (RPAQQ EMACS-CHANGESCOMS ((FNS 3LISP.NORMALIZE.REGION EMACS.BALANCED.SEXPR.FWD EMACS.SEXPR.FWD SKIP.SUFFIX.CHARACTERS.FWD \\COM.NORMALISE.BUFFER \\COM.NORMALIZE.DEFINITION \\COM.NORMALIZE.SEXPR.BACKWARDS \\COM.NORMALIZE.SEXPR.FORWARD) (P (EMACS.MAKE.^X.COMMAND (CHARCODE ^Z) (QUOTE \\COM.NORMALIZE.SEXPR.FORWARD))))) (EMACS.MAKE.^X.COMMAND (CHARCODE ^Z) (QUOTE \\COM.NORMALIZE.SEXPR.FORWARD)) NIL