[no subject]

[Howard Daniel Trachtman <Hdt@MIT-OZ>]

In MIT-Specific 18.1, System 93.30, ZMail 49.10, microcode 226, gc@2,
on Lisp Machine Three:

I did meta-x Edit Word Abbrevs


>>TRAP 12756 (ARGTYP NUMBER PP 0 QIGRP)
The first argument to SYS:M->, NIL, was of the wrong type.
The function expected a number.
Backtrace from the debugger:

(:METHOD NODE :MODIFIED-P) (P.C. = 32)
  (SELF is #<NODE 10441743>)

 Arg 0 (OPERATION): :MODIFIED-P


BUFFER-MODIFIED-P (P.C. = 22)

 Arg 0 (BUFFER): #<NODE 10441743>


UNDO-SAVE-NEW-SMALL-CHANGE (P.C. = 527)

 Arg 0 (BP1): ("" 0)
 Arg 1 (BP2): ("" 0)
Local 0 (UNDO-STATUS): (#<NODE 10441743> NIL ("" 0 :NORMAL) ("" 0 :MOVES) ...)
Local 1 (BP1-INSIDE): NIL
Local 2 (BP2-INSIDE): NIL
Local 3 (LINE): NIL
Local 4 (END-LINE): NIL
Local 5 (ALIST): ((** 0 0) (** 0 0))
Local 6 (COUNT): 0
Local 7 (INDEX): 0


INSERT (P.C. = 201)

 Arg 0 (BP): ("" 0)
 Arg 1 (STRING): "MON:      (LISP)               1       /"monitor/"
"
 Arg 2 (START): 0
 Arg 3 (END): NIL
Local 0 (LINE): NIL
Local 1 (INDEX): NIL
Local 2 (LINE-LENGTH): NIL
Local 3 (FIRST-NEWLINE): NIL
Local 4 (FIRST-LINE): NIL
Local 5 (LAST-LINE): NIL
Local 6 (LAST-NEWLINE): NIL
Local 7 (ARRAY-TYPE): NIL
Local 8 (LCHARS): NIL
Local 9 (G8127): NIL
Local 10 (BP): NIL
Local 11 (I): NIL
Local 12 (PREV-LINE): NIL
Local 13 (THIS-LINE): NIL
Local 14 (PREV-NEWLINE): NIL
Local 15 (NEWLINE): NIL
Local 16 (THE-LINE-BEYOND): NIL
Local 17 (LENGTH): NIL
Local 18 (LF): NIL
Local 19 (LT): NIL


(:METHOD INTERVAL-STREAM :STRING-OUT) (P.C. = 53)
  (SELF is #<INTERVAL-STREAM 10442004>)

 Arg 0 (OPERATION): :STRING-OUT
 Arg 1 (STRING): "MON:      (LISP)               1       /"monitor/"
"
 Arg 2 (START): 0
 Arg 3 (END): NIL
Local 0 (BP): NIL


Remainder of stack:

FORMAT:FORMAT-CTL-STRING (P.C. = 105)
FORMAT (P.C. = 176)
(:INTERNAL LIST-WORD-ABBREV-1 0) (P.C. = 150)
MAPATOMS (P.C. = 70)
LIST-WORD-ABBREV-1 (P.C. = 31)
COM-INSERT-WORD-ABBREVS (P.C. = 31)
COM-EDIT-WORD-ABBREVS (P.C. = 45)
COM-EXTENDED-COMMAND (P.C. = 67)
COMMAND-EXECUTE (P.C. = 100)
PROCESS-COMMAND-CHAR (P.C. = 67)
(:METHOD WINDOW :EDIT) (P.C. = 465)
(:INTERNAL (:METHOD ZMACS-WINDOW :COMBINED :EDIT) 0) (P.C. = 74)
FUNCALL (P.C. = 25)
(:METHOD DISPLAYER :AROUND :EDIT) (P.C. = 31)
(:METHOD ZMACS-WINDOW :COMBINED :EDIT) (P.C. = 47)
ZMACS-WINDOW-TOP-LEVEL (P.C. = 46)
SI:PROCESS-TOP-LEVEL (P.C. = 121)