zwei loss

[David Chapman <Zvona at MIT-OZ>]

In Release 4.1, System 222.171, site configuration 16, on Lisp Machine Six:

I got this when resuming from a zwei breakpoint with typeahead that did
a Clean directory on <cm.chip>.

>>Trap: There was no pending *CATCH for the tag ZWEI:MODE-LINE-OVERFLOW.
The values being thrown were T, ZWEI:MODE-LINE-OVERFLOW
While in the function (METHOD ZWEI:MODE-LINE-WINDOW-MIXIN BEFORE END-OF-LINE-EXCEPTION)  (METHOD ZWEI:ZMACS-MODE-LINE-WINDOW COMBINED END-OF-LINE-EXCEPTION)  (DEFUN-METHOD TV:SHEET-DISPLAY-LOSENGED-STRING)


(METHOD ZWEI:MODE-LINE-WINDOW-MIXIN BEFORE END-OF-LINE-EXCEPTION): (P.C. = 34)
 (SELF = #<ZMACS-MODE-LINE-WINDOW Zmacs Mode Line Window 4 20557362 exposed>)
 Arg 0 (OPERATION): END-OF-LINE-EXCEPTION


(METHOD ZWEI:MODE-LINE-WINDOW-MIXIN BEFORE END-OF-LINE-EXCEPTION):  (P.C. = 34)
   (SELF = #<ZMACS-MODE-LINE-WINDOW Zmacs Mode Line Window 4 20557362 exposed>)
   Arg 0 (OPERATION): END-OF-LINE-EXCEPTION

(METHOD ZWEI:ZMACS-MODE-LINE-WINDOW COMBINED END-OF-LINE-EXCEPTION):  (P.C. = 40)
   (SELF = #<ZMACS-MODE-LINE-WINDOW Zmacs Mode Line Window 4 20557362 exposed>)
   Rest arg (.DAEMON-CALLER-ARGS.): (END-OF-LINE-EXCEPTION)

(DEFUN-METHOD TV:SHEET-DISPLAY-LOSENGED-STRING):  (P.C. = 103)
   (SELF = #<ZMACS-MODE-LINE-WINDOW Zmacs Mode Line Window 4 20557362 exposed>)
   Arg 0 (SELF-MAPPING-TABLE): TV:SHEET
   Arg 1 (STRING): "Return"

(DEFUN-METHOD TV:SHEET-TYO-FUNNY-CHAR):  (P.C. = 320)
   (SELF = #<ZMACS-MODE-LINE-WINDOW Zmacs Mode Line Window 4 20557362 exposed>)
   Arg 0 (SELF-MAPPING-TABLE): TV:SHEET
   Arg 1 (CHAR): 215

(METHOD TV:SHEET TYO):  (P.C. = 213)
   (SELF = #<ZMACS-MODE-LINE-WINDOW Zmacs Mode Line Window 4 20557362 exposed>)
   Arg 0 (OPERATION): TYO
   Arg 1 (CHAR): 215
   --Defaulted args:--
   Arg 2 (FONT): NIL

(METHOD TV:STREAM-MIXIN FRESH-LINE):  (P.C. = 42)
   (SELF = #<ZMACS-MODE-LINE-WINDOW Zmacs Mode Line Window 4 20557362 exposed>)
   Arg 0 (OPERATION): FRESH-LINE

FORMAT:FORMAT-CTL-FRESH-LINE:  (P.C. = 34)
   Arg 0 (PARAMS): NIL

FORMAT:FORMAT-CTL-OP:  (P.C. = 63)
   Arg 0 (OP): FORMAT:&
   Arg 1 (ARGS): (#<TOPS20-PATHNAME "OZ:PS:<CM.CHIP>*.*.*"> 2)
   Arg 2 (PARAMS): NIL