[no subject]

[Hdt@MIT-OZ]

In MIT-Specific 18.1, System 93.37, ZMail 49.16, microcode 226,
Closed Mondays, on Lisp Machine Eighteen:


While sending mail from within zmail (rms the full text of this will
be one of your messages)  I typed hyper-meta-e to evaluate a form.

>>TRAP 4005 (SUBSCRIPT-OOB M-1 M-2 XINSTANCE-LOC-RESTART M-T)
The subscript 16 for #<ZMAIL-SENDING-INTERVAL "Mail" 11240154> was out of range in SYS:%INSTANCE-REF.
Backtrace from the debugger:

ZWEI:CHECK-INTERVAL-SECTIONS (P.C. = 223)

 Arg 0 (START-BP): ("(let ((this-host (si:parse-host si:local-host-name)))" 0)
 Arg 1 (END-BP): ("      (push this-host fs:*pathname-host-list*)))" 60)
 Arg 2 (IN-ORDER-P): T
Local 0 (FOO): (#<ZMAIL-SENDING-INTERVAL "Headers" 11240140> #<ZMAIL-SENDING-INTERVAL "Mail" 11240154>)
Local 1 (INT): #<DRAFT-MSG 11240051>
Local 2 (G0836): NIL
Local 3 (N): #<ZMAIL-SENDING-INTERVAL "Mail" 11240154>
Local 4 (START-NODE): #<ZMAIL-SENDING-INTERVAL "Mail" 11240154>
Local 5 (ENDNODE1): #<ZMAIL-SENDING-INTERVAL "Mail" 11240154>
Local 6 (END-NODE): #<ZMAIL-SENDING-INTERVAL "Mail" 11240154>
Local 7 (NODE): #<ZMAIL-SENDING-INTERVAL "Mail" 11240154>


ZWEI:COMPILE-INTERVAL (P.C. = 205)

 Arg 0 (COMPILE-P): NIL
 Arg 1 (USE-TYPEOUT): NIL
 Arg 2 (DEFVAR-HACK): T
 Arg 3 (BP1): ("(let ((this-host (si:parse-host si:local-host-name)))" 0)
 Arg 4 (BP2): ("      (push this-host fs:*pathname-host-list*)))" 60)
 Arg 5 (IN-ORDER-P): T
 Arg 6 (COMPILE-PROCESSING-MODE): COMPILER:MACRO-COMPILE
 Arg 7 (READ-THEN-PROCESS-FLAG): NIL
 Arg 8 (ENTIRE-FILE-FLAG): NIL
 Arg 9 (ALREADY-RESECTIONIZED-FLAG): NIL
Local 0 (GENERIC-PATHNAME): #FS:DUMMY-PATHNAME "Dummy"
Local 1 (STREAM): NIL
Local 2 (WHOLE-FILE): NIL
Local 3 (FDEFINE-FILE-DEFINITIONS): NIL
Local 4 (VARS): NIL
Local 5 (VALS): NIL
Local 6 (PROGV-VARS): NIL
Local 7 (PROGV-VALS): NIL


ZWEI:COMPILE-PRINT-INTERVAL (P.C. = 152)

 Arg 0 (BP1): ("(let ((this-host (si:parse-host si:local-host-name)))" 0)
 Arg 1 (BP2): ("      (push this-host fs:*pathname-host-list*)))" 60)
 Arg 2 (IN-ORDER-P): T
 Arg 3 (COMPILE-P): NIL
 Arg 4 (DEFUN-NAME): "((this-host (si:parse-host si:local-host-name)))"
 Arg 5 (MODE-NAME): "Evaluating"
 Arg 6 (ECHO-NAME): "evaluated."
 Arg 7 (USE-TYPEOUT): PROMPT
 Arg 8 (DEFVAR-HACK): T
 Arg 9 (COMPILER-PROCESSING-MODE): COMPILER:MACRO-COMPILE
 Arg 10 (ENTIRE-FILE-FLAG): NIL
   --Defaulted args:--
 Arg 11 (ALREADY-RESECTIONIZED-FLAG): NIL
Local 0 (FORMAT-FUNCTION): #<DTP-FEF-POINTER ZWEI:PROMPT-LINE 16740115>
Local 1 (SUCCESS): NIL


ZWEI:COMPILE-DEFUN-INTERNAL (P.C. = 214)

 Arg 0 (COMPILE-P): NIL
 Arg 1 (MODE-NAME): "Evaluating"
 Arg 2 (ECHO-NAME): "evaluated."
 Arg 3 (USE-TYPEOUT): PROMPT
   --Defaulted args:--
 Arg 4 (DEFVAR-HACK): T
 Arg 5 (COMPILER-PROCESSING-MODE): COMPILER:MACRO-COMPILE
Local 0 (BP1): ("(let ((this-host (si:parse-host si:local-host-name)))" 0)
Local 1 (BP2): ("      (push this-host fs:*pathname-host-list*)))" 60)
Local 2 (DEFUN-NAME): "((this-host (si:parse-host si:local-host-name)))"


ZWEI:COM-EVALUATE-REGION (P.C. = 42)



Remainder of stack:

ZWEI:COMMAND-EXECUTE (P.C. = 100)
ZWEI:PROCESS-COMMAND-CHAR (P.C. = 67)
(METHOD ZWEI:WINDOW EDIT) (P.C. = 465)
(INTERNAL (INTERNAL (METHOD ZWEI:ZMAIL-WINDOW COMBINED EDIT) 0) 0) (P.C. = 72)
FUNCALL (P.C. = 25)
(METHOD ZWEI:DISPLAYER AROUND EDIT) (P.C. = 31)
(INTERNAL (METHOD ZWEI:ZMAIL-WINDOW COMBINED EDIT) 0) (P.C. = 47)
(METHOD ZWEI:ZMAIL-WINDOW AROUND EDIT) (P.C. = 70)
(METHOD ZWEI:ZMAIL-WINDOW COMBINED EDIT) (P.C. = 45)
ZWEI:ZMAIL-MAIL (P.C. = 365)
...
ZWEI:ZMAIL-COMMAND-EXECUTE (P.C. = 27)
(METHOD ZWEI:ZMAIL-FRAME PROCESS-COMMAND-CHAR) (P.C. = 40)
(METHOD ZWEI:ZMAIL-COMMAND-LOOP-MIXIN COMMAND-LOOP) (P.C. = 273)
(INTERNAL (METHOD ZWEI:ZMAIL-FRAME COMBINED COMMAND-LOOP) 0) (P.C. = 50)
FUNCALL (P.C. = 25)
(METHOD ZWEI:ZMAIL-COMMAND-LOOP-MIXIN AROUND COMMAND-LOOP) (P.C. = 57)
(METHOD ZWEI:ZMAIL-FRAME COMBINED COMMAND-LOOP) (P.C. = 47)
ZWEI:ZMAIL-PROCESS-TOP-LEVEL (P.C. = 115)
SI:PROCESS-TOP-LEVEL (P.C. = 121)