[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

M-K bug



In MIT-Specific 18.1, System 93.40, ZMail 49.17, microcode 226,
on Lisp Machine Twenty-five:

This is a line ending in a period and two spaces.  

The line above this one must be blank.  Go to the beginning of the buffer,
search for "spaces. ", and type M-K.

SI:SIMPLE-MAKE-ARRAY (P.C. = 217)

 Arg 0 (DIMENSIONS): -2
 Arg 1 (TYPE): ART-STRING
 Arg 2 (AREA): 36
 Arg 3 (LEADER-LENGTH): 10
   --Defaulted args:--
 Arg 4 (INITIAL-VALUE): NIL
Local 0 (INITIAL-VALUE-P): NIL
Local 1 (DATA-LENGTH): NIL
Local 2 (LONG-ARRAY-P): NIL
Local 3 (ARRAY): NIL
Local 4 (ENTRIES-PER-Q): NIL
Local 5 (HEADER-WORD): NIL


ZWEI:CREATE-LINE (P.C. = 37)

 Arg 0 (ARRAY-TYPE): ART-STRING
 Arg 1 (SIZE): -2
 Arg 2 (NODE): #<NODE 10325711>
Local 0 (G9319): NIL


ZWEI:COPY-INTERVAL (P.C. = 113)

 Arg 0 (FROM-BP): ("possibly on joint 2.   " 26 NORMAL)
 Arg 1 (TO-BP): ("possibly on joint 2.   " 24)
 Arg 2 (IN-ORDER-P): T
   --Defaulted args:--
 Arg 3 (INTO-INTERVAL): #<NODE 10325711>
Local 0 (FROM-LINE): "possibly on joint 2.   "
Local 1 (FROM-INDEX): 26
Local 2 (TO-LINE): "possibly on joint 2.   "
Local 3 (TO-INDEX): 24
Local 4 (LEN): -2
Local 5 (LINE): NIL
Local 6 (FLF): NIL
Local 7 (LT): NIL
Local 8 (FROM-LINE-LENGTH): NIL
Local 9 (FIRST-LINE): NIL
Local 10 (LAST-LINE): NIL
Local 11 (FRF): NIL
Local 12 (FIT): NIL
Local 13 (I): NIL
Local 14 (PREV-LINE): NIL
Local 15 (THIS-LINE): NIL
Local 16 (ORIGINAL-LINE): NIL


ZWEI:KILL-RING-SAVE-INTERVAL (P.C. = 122)

 Arg 0 (BP1): ("possibly on joint 2.   " 26 NORMAL)
 Arg 1 (BP2): ("possibly on joint 2.   " 24)
 Arg 2 (IN-ORDER-P): T
 Arg 3 (FORWARDP): T
Local 0 (INT): #<NODE 10325631>


ZWEI:KILL-INTERVAL (P.C. = 146)

 Arg 0 (BP1): ("possibly on joint 2.   " 26 NORMAL)
 Arg 1 (BP2): ("possibly on joint 2.   " 24)
 Arg 2 (IN-ORDER-P): T
 Arg 3 (FORWARDP): T
   --Defaulted args:--
 Arg 4 (EXPLICIT-P): NIL


ZWEI:KILL-INTERVAL-ARG (P.C. = 30)

 Arg 0 (BP1): ("possibly on joint 2.   " 26 NORMAL)
 Arg 1 (BP2): ("possibly on joint 2.   " 24)
 Arg 2 (ARG): 1


ZWEI:COM-KILL-SENTENCE (P.C. = 53)



Additional information supplied with call:
 Expecting 3 values

ZWEI:COMMAND-EXECUTE (P.C. = 100)

 Arg 0 (COMMAND): ZWEI:COM-KILL-SENTENCE
 Arg 1 (CHAR): 1113
 Arg 2 (PREFIX-CHAR): NIL
 Arg 3 (HOOK-LIST): NIL
Local 0 (G4734): NIL
Local 1 (HOOK): NIL


ZWEI:PROCESS-COMMAND-CHAR (P.C. = 67)

 Arg 0 (CH): 1113
Local 0 (VALUE): NIL
Local 1 (LINE): NIL
Local 2 (INDEX): NIL
Local 3 (G5246): NIL
Local 4 (HOOK): NIL


(METHOD ZWEI:WINDOW EDIT) (P.C. = 465)
  (SELF is #<ZMAIL-WINDOW Zmail Window 1 15404665 exposed>)

 Arg 0 (OPERATION): EDIT
   --Defaulted args:--
 Arg 1 (IGNORE): NIL
 Arg 2 (*COMTAB*): #<COMTAB ZWEI:*REPLY-COMTAB* 24363716>
 Arg 3 (*MODE-LINE-LIST*): ("ZMail " "Mail " "(" ZWEI:*MODE-NAME-LIST* ...)
 Arg 4 (TOP-LEVEL-P): T
Local 0 (TEM1): ((** ** T ** ...) (** ** T ** ...))
Local 1 (G1278): ("Return to top level editor command loop.")
Local 2 (G1278): ((SYS:ABORT ERROR) ("Return to top level editor command loop.") T ("Return to top level editor command loop.") ...)
Local 3 (CH): 1113


Additional information supplied with call:
 SYS:ADI-FEXPR-CALL

(INTERNAL (INTERNAL (METHOD ZWEI:ZMAIL-WINDOW COMBINED EDIT) 0) 0) (P.C. = 72)

 Rest arg (.DAEMON-CALLER-ARGS.): (EDIT)
Local 1 (.DAEMON-MAPPING-TABLE.): #<ART-16B-16 17573305>


FUNCALL (P.C. = 25)

 Arg 0 (FN): #<DTP-FEF-POINTER (INTERNAL (INTERNAL ** 0) 0) 23513366>
 Rest arg (ARGS): (EDIT)


(METHOD ZWEI:DISPLAYER AROUND EDIT) (P.C. = 31)
  (SELF is #<ZMAIL-WINDOW Zmail Window 1 15404665 exposed>)

 Arg 0 (OPERATION): EDIT
 Arg 1 (CONT): #<DTP-FEF-POINTER (INTERNAL (INTERNAL ** 0) 0) 23513366>
 Arg 2 (MT): #<ART-16B-16 17573305>
 Arg 3 (ARGS): (EDIT)
   --Defaulted args:--
 Arg 4 (EDITOR-CLOSURE-1): NIL
 Rest arg (IGNORE): NIL


(INTERNAL (METHOD ZWEI:ZMAIL-WINDOW COMBINED EDIT) 0) (P.C. = 47)

 Rest arg (.DAEMON-CALLER-ARGS.): (EDIT)
Local 1 (.DAEMON-MAPPING-TABLE.): #<ART-16B-16 17573305>


(METHOD ZWEI:ZMAIL-WINDOW AROUND EDIT) (P.C. = 70)
  (SELF is #<ZMAIL-WINDOW Zmail Window 1 15404665 exposed>)

 Arg 0 (OPERATION): EDIT
 Arg 1 (CONT): #<DTP-FEF-POINTER (INTERNAL (METHOD ZWEI:ZMAIL-WINDOW COMBINED EDIT) 0) 23513342>
 Arg 2 (MT): #<ART-16B-16 17573305>
 Arg 3 (ARGS): (EDIT)
 Rest arg (IGNORE): NIL
Local 1 (G2792): "L: edit this message."


(METHOD ZWEI:ZMAIL-WINDOW COMBINED EDIT) (P.C. = 45)
  (SELF is #<ZMAIL-WINDOW Zmail Window 1 15404665 exposed>)

 Rest arg (.DAEMON-CALLER-ARGS.): (EDIT)
Local 1 (.DAEMON-MAPPING-TABLE.): #<ART-16B-16 17573305>


ZWEI:ZMAIL-MAIL (P.C. = 365)

 Arg 0 (CONFIGURATION): MAIL
 Arg 1 (STARTING-WINDOW): HEADER
Local 0 (OLD-CONFIGURATION): BOTH
Local 1 (.WINDOW.): NIL
Local 2 (.FOR-WINDOW.): #<ZMAIL-FRAME MAIN-ZMAIL-WINDOW 15400656 exposed>
Local 3 (.OSTATUS.): NIL
Local 4 (.OSUBST.): NIL
Local 5 (W): #<ZMAIL-WINDOW Zmail Window 1 15404665 exposed>
Local 6 (.QUEUE-LEFT.): NIL
Local 7 (G1142): NIL
Local 8 (E): NIL


ZWEI:COM-ZMAIL-MAIL-INTERNAL (P.C. = 371)

 Arg 0 (MODE): NIL
Local 0 (POINT): ("To: hand-eye" 4 NORMAL)
Local 1 (WHO): NIL
Local 2 (WHAT): NIL
Local 3 (STARTING-WINDOW): HEADER
Local 4 (STREAM): NIL
Local 5 (STATUS): NIL
Local 6 (FROM): NIL
Local 7 (SUBJECT): NIL
Local 8 (BP): NIL


ZWEI:COM-ZMAIL-MAIL (P.C. = 62)

Local 0 (TYPE): NIL


ZWEI:COMMAND-EXECUTE (P.C. = 100)

 Arg 0 (COMMAND): ZWEI:COM-ZMAIL-MAIL
 Arg 1 (CHAR): 155
   --Defaulted args:--
 Arg 2 (PREFIX-CHAR): NIL
 Arg 3 (HOOK-LIST): NIL
Local 0 (G4734): NIL
Local 1 (HOOK): NIL


ZWEI:ZMAIL-COMMAND-EXECUTE (P.C. = 27)

 Arg 0 (*CURRENT-COMMAND*): ZWEI:COM-ZMAIL-MAIL


(METHOD ZWEI:ZMAIL-FRAME PROCESS-COMMAND-CHAR) (P.C. = 40)
  (SELF is #<ZMAIL-FRAME MAIN-ZMAIL-WINDOW 15400656 exposed>)

 Arg 0 (OPERATION): PROCESS-COMMAND-CHAR
 Arg 1 (CH): 155


(METHOD ZWEI:ZMAIL-COMMAND-LOOP-MIXIN COMMAND-LOOP) (P.C. = 273)
  (SELF is #<ZMAIL-FRAME MAIN-ZMAIL-WINDOW 15400656 exposed>)

 Arg 0 (OPERATION): COMMAND-LOOP
Local 0 (G0626): ("Return to ZMAIL command loop.")
Local 1 (G0626): ((SYS:ABORT ERROR) ("Return to ZMAIL command loop.") T ("Return to ZMAIL command loop.") ...)
Local 2 (RESPONSE): NIL
Local 3 (DEGREE): NIL


Additional information supplied with call:
 SYS:ADI-FEXPR-CALL

(INTERNAL (METHOD ZWEI:ZMAIL-FRAME COMBINED COMMAND-LOOP) 0) (P.C. = 50)

 Rest arg (.DAEMON-CALLER-ARGS.): (COMMAND-LOOP)
Local 1 (.DAEMON-MAPPING-TABLE.): #<ART-16B-24 17563136>


FUNCALL (P.C. = 25)

 Arg 0 (FN): #<DTP-FEF-POINTER (INTERNAL (METHOD ZWEI:ZMAIL-FRAME COMBINED COMMAND-LOOP) 0) 23506141>
 Rest arg (ARGS): (COMMAND-LOOP)


(METHOD ZWEI:ZMAIL-COMMAND-LOOP-MIXIN AROUND COMMAND-LOOP) (P.C. = 57)
  (SELF is #<ZMAIL-FRAME MAIN-ZMAIL-WINDOW 15400656 exposed>)

 Arg 0 (OPERATION): COMMAND-LOOP
 Arg 1 (CONT): #<DTP-FEF-POINTER (INTERNAL (METHOD ZWEI:ZMAIL-FRAME COMBINED COMMAND-LOOP) 0) 23506141>
 Arg 2 (MT): #<ART-16B-24 17563136>
 Arg 3 (ARGS): (COMMAND-LOOP)
   --Defaulted args:--
 Arg 4 (EDITOR-CLOSURE-1): NIL
 Rest arg (IGNORE): NIL
Local 1 (G0609): (ZWEI:UNKNOWN-SPECIAL-COMMAND ZWEI:ZMAIL-COMMAND-LOOP-UNKNOWN-SPECIAL-COMMAND)
Local 2 (G0610): ((ZWEI:UNKNOWN-SPECIAL-COMMAND ZWEI:ZMAIL-COMMAND-LOOP-UNKNOWN-SPECIAL-COMMAND))


(METHOD ZWEI:ZMAIL-FRAME COMBINED COMMAND-LOOP) (P.C. = 47)
  (SELF is #<ZMAIL-FRAME MAIN-ZMAIL-WINDOW 15400656 exposed>)

 Rest arg (.DAEMON-CALLER-ARGS.): (COMMAND-LOOP)
Local 1 (.DAEMON-MAPPING-TABLE.): #<ART-16B-24 17563136>


ZWEI:ZMAIL-PROCESS-TOP-LEVEL (P.C. = 115)

 Arg 0 (WINDOW): #<ZMAIL-FRAME MAIN-ZMAIL-WINDOW 15400656 exposed>


SI:PROCESS-TOP-LEVEL (P.C. = 121)

 Arg 0 (IGNORE): NIL
Local 0 (G1393): ("Restart process ~A." "MAIN-ZMAIL-WINDOW")
Local 1 (G1393): ((SYS:ABORT ERROR) ("Restart process ~A." "MAIN-ZMAIL-WINDOW") T ("Restart process ~A." "MAIN-ZMAIL-WINDOW") ...)
Local 2 (IGNORE): NIL