Evaluate Region bug

[Robert P. Krajewski <RpK at MIT-OZ>]

In Don't-dump-a-band! Inconsistent (unreleased patches loaded) System 98.20,
CADR 3.4, Inconsistent (unreleased patches loaded) ZMail 53.9,
MIT-Specific 22.0, microcode 305, ZM MIT, on Lisp Machine One:

I did a m-X Evaluate Region, and the DEFUN evaluated fine.  (The region
was part of a message I was composing with ZMail's m-X Bug command.)
Then this happened:

>>TRAP 2119. (SUBSCRIPT-OOB M-1 M-2 XINSTANCE-LOC-RESTART M-T)
The subscript 12. for #<ZMAIL-SENDING-INTERVAL "Mail" 34165253> was out of range in ARRAY-LEADER.
Backtrace from the debugger:

ZWEI:UPDATE-INTERVAL-COMPILE-TICK (P.C. = 65)

 Arg 0 (BP1): ("(DEFUN SARTRE (X) (SETQ X X))" 0. :NORMAL)
 Arg 1 (BP2): ("(DEFUN SARTRE (X) (SETQ X X))" 29. :NORMAL)
 Arg 2 (IN-ORDER-P): T
Local 0 (NODE): #<ZMAIL-SENDING-INTERVAL "Mail" 34165253>
Local 1 (FIRST): T


ZWEI:COMPILE-PRINT-INTERVAL (P.C. = 211)

 Arg 0 (BP1): ("(DEFUN SARTRE (X) (SETQ X X))" 0. :NORMAL)
 Arg 1 (BP2): ("(DEFUN SARTRE (X) (SETQ X X))" 29. :NORMAL)
 Arg 2 (IN-ORDER-P): T
 Arg 3 (COMPILE-P): NIL
 Arg 4 (REGION-NAME): "Region"
 Arg 5 (MODE-NAME): "Evaluating"
 Arg 6 (ECHO-NAME): "evaluated."
 Arg 7 (USE-TYPEOUT): :PROMPT
 Arg 8 (DEFVAR-HACK): NIL
 Arg 9 (COMPILER-PROCESSING-MODE): COMPILER:MACRO-COMPILE
   --Defaulted args:--
 Arg 10 (ALREADY-RESECTIONIZED-FLAG): NIL
Local 0 (FORMAT-FUNCTION): #<DTP-FEF-POINTER ZWEI:PROMPT-LINE-MORE 17101704>
Local 1 (SUCCESS): T


ZWEI:COMPILE-DEFUN-INTERNAL (P.C. = 163)

 Arg 0 (COMPILE-P): NIL
 Arg 1 (MODE-NAME): "Evaluating"
 Arg 2 (ECHO-NAME): "evaluated."
 Arg 3 (USE-TYPEOUT): :PROMPT
   --Defaulted args:--
 Arg 4 (DEFVAR-HACK): NIL
 Arg 5 (COMPILER-PROCESSING-MODE): COMPILER:MACRO-COMPILE
Local 0 (BP1): ("(DEFUN SARTRE (X) (SETQ X X))" 0. :NORMAL)
Local 1 (BP2): ("(DEFUN SARTRE (X) (SETQ X X))" 29. :NORMAL)
Local 2 (DEFUN-NAME): "Region"


ZWEI:COM-EVALUATE-REGION (P.C. = 42)



ZWEI:COM-EXTENDED-COMMAND (P.C. = 67)

Local 0 (ANS): ("Evaluate Region" . ZWEI:COM-EVALUATE-REGION)


Remainder of stack:

ZWEI:COMMAND-EXECUTE (P.C. = 115)
ZWEI:PROCESS-COMMAND-CHAR (P.C. = 65)
(:METHOD ZWEI:WINDOW :EDIT) (P.C. = 464)
(:INTERNAL (:INTERNAL (:METHOD ZWEI:ZMAIL-WINDOW :COMBINED :EDIT) 0.) 0.) (P.C. = 66)
FUNCALL (P.C. = 25)
(:METHOD ZWEI:DISPLAYER :AROUND :EDIT) (P.C. = 31)
(:INTERNAL (:METHOD ZWEI:ZMAIL-WINDOW :COMBINED :EDIT) 0.) (P.C. = 43)
(:METHOD ZWEI:ZMAIL-WINDOW :AROUND :EDIT) (P.C. = 63)
(:METHOD ZWEI:ZMAIL-WINDOW :COMBINED :EDIT) (P.C. = 41)
ZWEI:ZMAIL-MAIL (P.C. = 354)
...
ZWEI:ZMAIL-COMMAND-EXECUTE (P.C. = 27)
(:METHOD ZWEI:ZMAIL-FRAME :PROCESS-COMMAND-CHAR) (P.C. = 40)
(:METHOD ZWEI:ZMAIL-COMMAND-LOOP-MIXIN :COMMAND-LOOP) (P.C. = 257)
(:INTERNAL (:METHOD ZWEI:ZMAIL-FRAME :COMBINED :COMMAND-LOOP) 0.) (P.C. = 44)
FUNCALL (P.C. = 25)
(:METHOD ZWEI:ZMAIL-COMMAND-LOOP-MIXIN :AROUND :COMMAND-LOOP) (P.C. = 57)
(:METHOD ZWEI:ZMAIL-FRAME :COMBINED :COMMAND-LOOP) (P.C. = 43)
ZWEI:ZMAIL-PROCESS-TOP-LEVEL (P.C. = 115)
SI:PROCESS-TOP-LEVEL (P.C. = 152)