[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
M-K bug
- To: BUG-zwei@MIT-OZ
- Subject: M-K bug
- From: Patrick Sobalvarro <PGS@MIT-OZ>
- Date: Tue ,5 Apr 83 08:12:00 EDT
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