bug in m-x compile changed definitions

[Pete Osler <pos@MIT-VAX.ARPA>]

In Symbolics 3640 Zwei in Release 6.1, IP-TCP 29.13, Macsyma 318.12,
PASCAL 31.0, FORTRAN 49.4, Japanese 24.1, 6-1-Patches 1.12, MLSite 13.1,
Experimental DVI 1.1, Experimental Schema 109.0, Experimental XML 2.0,
microcode TMC5-IO4-ST506-MIC 336, FEP 127, FEP0:>V127-LISP.FLOD(2),
FEP0:>V127-LOADERS.FLOD(3), FEP0:>V127-INFO.FLOD(2),
FEP0:>V127-DEBUG.FLOD(1), on Vail:

When M-X compile changed definitions is issued, and a read error occurs in
a buffer which is not the current buffer, the function zwei:redisplay blows out. 
This is due to the point being moved to the non-current buffer.


>>Error: POINT is not in the interval being displayed
While in the function ZWEI:PUT-POINT-AT-PLINE  ZWEI:RECENTER-WINDOW  ZWEI:REDISPLAY

ZWEI:PUT-POINT-AT-PLINE:  (P.C. = 35)
   Arg 0 (ZWEI:SHEET): #<ZMACS-WINDOW-PANE Zmacs Window Pane 1 43202655 exposed>
   Arg 1 (ZWEI:POINT-LINE): "  (foo:goo 3))"
   Arg 2 (ZWEI:POINT-INDEX): 7
   Arg 3 (ZWEI:POINT-PLINE): 24
   Arg 4 (ZWEI:FIRST-BP): (";;; -*- Mode: LISP -*-" 0 :NORMAL)
   Arg 5 (ZWEI:LAST-BP): ("(defun f () 3)" 14 :MOVES)
   Local 6 (ZWEI:LH): 14
   Local 7 (ZWEI:P): 4
   Local 8 (ZWEI:STOP-LINE): ";;; -*- Mode: LISP -*-"
   Local 9 (ZWEI:DIAGRAM-NPLINES): NIL
   Local 10 (ZWEI:LINE): NIL
   Local 11 (ZWEI:POINT-LINE-P): NIL
   Local 12 (ZWEI:DIAGRAM): NIL

ZWEI:RECENTER-WINDOW:  (P.C. = 101)
   Arg 0 (ZWEI:WINDOW): #<WINDOW 145006541>
   Arg 1 (ZWEI:RECENTER-TYPE): :ABSOLUTE
   Arg 2 (ZWEI:RC1): NIL
   Arg 3 (ZWEI:RC2): NIL

ZWEI:REDISPLAY:  (P.C. = 252)
   Arg 0 (ZWEI:WINDOW): #<WINDOW 145006541>
   --Defaulted args:--
   Arg 1 (ZWEI:RECENTER-TYPE): :ABSOLUTE
   Arg 2 (ZWEI:RC1): NIL
   Arg 3 (ZWEI:RC2): NIL
   Arg 4 (ZWEI:FORCE-TO-COMPLETION-P): NIL

ZWEI:REDISPLAY-ALL-WINDOWS:  (P.C. = 34)
   --Defaulted args:--
   Arg 0 (ZWEI:FORCE-TO-COMPLETION-P): NIL
   Arg 1 (ZWEI:SELECT-P): T

(:METHOD ZWEI:EDITOR :EDIT):  (P.C. = 160)
   Arg 0 (SELF): #<ZMACS-TOP-LEVEL-EDITOR 144776776>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:EDITOR -- 12. IV's, 0. FL's 120377766>
   Arg 2 (SI:OPERATION): :EDIT
   --Defaulted args:--
   Arg 3 (ZWEI:TOP-LEVEL-P): T
   Arg 4 (ZWEI:DESCRIPTION): NIL

(:METHOD ZWEI:TOP-LEVEL-EDITOR :COMBINED :EDIT):  (P.C. = 60)
   Arg 0 (SELF): #<ZMACS-TOP-LEVEL-EDITOR 144776776>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:TOP-LEVEL-EDITOR -- 13. IV's, 1. FL's 120377366>
   Arg 2 (SI:.OPERATION.): :EDIT
   Rest arg (SI:.DAEMON-CALLER-ARGS.): NIL

ZWEI:ZMACS-WINDOW-TOP-LEVEL:  (P.C. = 51)

SI:PROCESS-TOP-LEVEL:  (P.C. = 54)
   --Defaulted args:--
   Arg 0 (IGNORE): NIL