MIT System bug

[Immovable Object at MIT-OZ <SAZ@MIT-OZ>]

In Experimental System 99.9, CADR 4.0, Experimental ZMail 54.2,
MIT-Specific 23.0, microcode 320, GC@2, on Lisp Machine Four:


Insert your description of the circumstances here:

All I did here was a control-) while within a function
definition.  I am now going to find out at which points
in the defun this error does NOT occur.  Be back in a second.

dave

>>TRAP 5199 (ARRAY-HAS-NO-LEADER M-A XFLAD1-RESTART)
The array given to AR-1, "(cond	((is-it-parallel? (get-bass chord1) (get-soprano chord1)  (get-b", has no leader.
Backtrace from the debugger:

ZWEI:COM-SHOW-LIST-START (P.C. = 222)

Local 0 (BP): ("			  (get-bass chord2) (get-soprano chord2))" 12)
Local 1 (END-BP): ("	 (list 'alto 'tenor)))" 23)
Local 2 (CLOSE): #/)
Local 3 (BALANCE-LENGTH): 70
Local 4 (INDEX): 2
Local 5 (OPEN): #/(
Local 6: ""
Local 7 (STRING): "(cond	((is-it-parallel? (get-bass chord1) (get-soprano chord1)  (get-b"
Local 8 (CH): #/a
Local 9 (BP): ("			  (get-bass chord2) (get-soprano chord2))" 12)


Additional information supplied with call:
 Expecting 3 values

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

 Arg 0 (COMMAND): ZWEI:COM-SHOW-LIST-START
 Arg 1 (CHAR): #/c-/)
 Arg 2 (PREFIX-CHAR): NIL
 Arg 3 (HOOK-LIST): NIL
Local 0 (HOOK-SUCCESS): T
Local 1: NIL
Local 2 (HOOK): NIL


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

 Arg 0 (CH): #/c-/)
Local 0 (VALUE): NIL
Local 1 (LINE): NIL
Local 2 (INDEX): NIL
Local 3: NIL
Local 4 (HOOK): NIL


(:METHOD ZWEI:WINDOW :PROCESS-COMMAND-CHAR) (P.C. = 20)
  (SELF is #<ZWEI:ZMACS-WINDOW-PANE Zmacs Window Pane 2 2731265 exposed>)

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


(:METHOD ZWEI:WINDOW :EDIT) (P.C. = 307)
  (SELF is #<ZWEI:ZMACS-WINDOW-PANE Zmacs Window Pane 2 2731265 exposed>)

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


Remainder of stack:

(:INTERNAL (:METHOD ZWEI:ZMACS-WINDOW :COMBINED :EDIT) 0) (P.C. = 60)
FUNCALL (P.C. = 21)
(:METHOD ZWEI:DISPLAYER :AROUND :EDIT) (P.C. = 25)
(:METHOD ZWEI:ZMACS-WINDOW :COMBINED :EDIT) (P.C. = 39)
ZWEI:ZMACS-WINDOW-TOP-LEVEL (P.C. = 38)
SI:PROCESS-TOP-LEVEL (P.C. = 115)
-------