resectionizing problem

[Scott Layson <X.GYRO@MIT-OZ>]

In System 98.39, CADR 3.4, ZMail 53.5, Experimental Local-File 48.1,
Experimental FILE-Server 8.0, microcode 306, Zeta, on Astarte:

I have buffers full of strange list structure (the parse trees produced by my
C compiler).  Whenever I try to resectionize them I get this lossage.  The
problem appears to be that the NODE in question, which appears to be the
LINE-NODE of all the lines in the buffer (?? what's a NODE for anyway?),
was created without a superior.  If I do

(setf (node-superior (dbg:loc 10))
      (line-node (bp-line (interval-first-bp (dbg:loc 10)))))

and then c-m-R, things appear to work properly.


>>TRAP 4115. (INSTANCE-LACKS-INSTANCE-VARIABLE M-C M-A)
There is no instance variable GLOBAL:PATHNAME in #<NODE 40277055>.
Backtrace from the debugger:

Additional information supplied with call:
 Expecting 3 values

(:PROPERTY :LISP ZWEI:GET-SECTION-NAME) (P.C. = 312)

 Arg 0 (LINE): "(decl+ (char) (fcn+ toupper) (fcn+ tolower))"
 Arg 1 (BP): ("(decl+ (char) (fcn+ isupper) (fcn+ islower) (fcn+ isalpha) (fcn+ isdigit) (fcn+ istoken))" 0.)
Local 0 (STR): GLOBAL:NIL
Local 1 (SYM): GLOBAL:NIL
Local 2 (ERROR-P): GLOBAL:T
Local 3 (IDX): GLOBAL:NIL
Local 4 (END-IDX): GLOBAL:NIL
Local 5 (EOF): ""
Local 6 (NON-FONT-LINE): GLOBAL:NIL
Local 7: GLOBAL:NIL
Local 8: GLOBAL:NIL
Local 9 (*SELECTQ-ITEM*): GLOBAL:NIL
Local 10 (BUFFER): #<NODE 40277055>
Local 11 (NAME): GLOBAL:NIL
Local 12: GLOBAL:NIL
Local 13 (NAME-ELT): GLOBAL:NIL
Local 14 (START-INDEX): GLOBAL:NIL


ZWEI:SECTIONIZE-FILE-BUFFER (P.C. = 524)

 Arg 0 (BUFFER): #<ZMACS-BUFFER "CPARSE.LISP#> GYRO.ZETAC; ASTARTE:" 31305365>
 Arg 1 (AARRAY): #<ART-Q-LIST-560. 3664315>
 Arg 2 (PROPERTY): ZWEI:ZMACS-BUFFERS
   --Defaulted args:--
 Arg 3 (START-NODE): GLOBAL:NIL
 Arg 4 (END-NODE): GLOBAL:NIL
 Arg 5 (STREAM): GLOBAL:NIL
 Arg 6 (HACK-FONTS): GLOBAL:NIL
Local 0 (NODE-LIST): (#<SECTION-NODE "Buffer header" 40415565>)
Local 1 (MODE): ZWEI:LISP-MODE
Local 2 (INT-STREAM): GLOBAL:NIL
Local 3 (FIRST-BP): ("; -*- Mode: Lisp; Base: 10; Tab-width: 5; Package: CParse -*-" 0. :NORMAL)
Local 4 (LAST-BP): ("" 0. :MOVES)
Local 5 (ADDED-COMPLETIONS): #<ART-Q-LIST-64. 40415464>
Local 6 (BUFFER-TICK): 6462.
r) (fcn+ isdigit c))| 31341262>) ...)
Local 8 (NODES-TO-REUSE): GLOBAL:NIL
Local 9 (ACTUAL-NEW-NODES): (#<SECTION-NODE "Buffer header" 40415565>)
Local 10 (START-PREDECESSOR): GLOBAL:NIL
Local 11 (END-FOLLOWER): GLOBAL:NIL
Local 12 (N): GLOBAL:NIL
Local 13: GLOBAL:NIL
Local 14 (NODE): #<SECTION-NODE |ZWEI Utility Package|:|(() (fcn+ movmem src dst len))| 31341557>
Local 15 (LINE): "(decl+ (char) (fcn+ isupper) (fcn+ islower) (fcn+ isalpha) (fcn+ isdigit) (fcn+ istoken))"
Local 16 (LIMIT): ""
Local 17 (EOFFLG): GLOBAL:NIL
Local 18 (BP): ("(decl+ (char) (fcn+ isupper) (fcn+ islower) (fcn+ isalpha) (fcn+ isdigit) (fcn+ istoken))" 0.)
Local 19 (PREV-NODE-START-BP): ("(decl+ (char) (fcn+ isupper) (fcn+ islower) (fcn+ isalpha) (fcn+ isdigit) (fcn+ istoken))" 0.)
Local 20 (PREV-NODE-DEFUN-LINE): "(decl+ (char) (fcn+ toupper) (fcn+ tolower))"
Local 21 (FIRST-NODE-NAME): "Buffer header"
Local 22 (PREVIOUS-NODE): #<SECTION-NODE "Buffer header" 40415565>
Local 23 (ADD-SECTIONS): :LISP
Local 24 (SECTION-P): #<DTP-FEF-POINTER (:PROPERTY :LISP ZWEI:SECTION-P) 30411661>
Local 25 (SECTION-NAME-FUNCTION): #<DTP-FEF-POINTER (:PROPERTY :LISP ZWEI:GET-SECTION-NAME) 30515017>
Local 26 (START): ("(decl+ (char) (fcn+ toupper) (fcn+ tolower))" 0.)
Local 27 (END): ("(decl+ (char) (fcn+ isupper) (fcn+ islower) (fcn+ isalpha) (fcn+ isdigit) (fcn+ istoken))" 0.)
Local 28 (OLD-NODE): GLOBAL:NIL
Local 29 (SYM): "Buffer header"
Local 30 (STR): GLOBAL:NIL
Local 31 (ERR): GLOBAL:NIL
Local 32 (FIRST-NEW-NODE): GLOBAL:NIL
Local 33 (FLUSHED-NODES): GLOBAL:NIL
Local 34 (ALL-NODES): GLOBAL:NIL
Local 35 (THE-BUFFER): GLOBAL:NIL
Local 36: GLOBAL:NIL
Local 37: GLOBAL:NIL
Local 38 (*SELECTQ-ITEM*): GLOBAL:NIL
Local 39 (I): GLOBAL:NIL
Local 40 (J): GLOBAL:NIL


(:METHOD ZWEI:ZMACS-BUFFER :SECTIONIZE) (P.C. = 45)
  (SELF is #<ZMACS-BUFFER "CPARSE.LISP#> GYRO.ZETAC; ASTARTE:" 31305365>)

 Arg 0 (OPERATION): :SECTIONIZE


ZWEI:SECTIONIZE-BUFFER (P.C. = 22)

 Arg 0 (BUFFER): #<ZMACS-BUFFER "CPARSE.LISP#> GYRO.ZETAC; ASTARTE:" 31305365>


ZWEI:COM-SOURCE-COMPARE-MERGE (P.C. = 204)

Local 0 (FILE-1): #<ART-Q-400. 40276075>
Local 1 (FILE-2): #<ART-Q-200. 40276642>
Local 2 (NAME-1): "CPARSE.LISP#> GYRO.ZETAC; ASTARTE:"
Local 3 (NAME-2): #FS:LM-PATHNAME "ASTARTE: GYRO.ZETAC; CPARSE.Z#>"
Local 4 (TYPE-1): "Buffer"
Local 5 (TYPE-2): "File"
Local 6 (BUF-1): #<ZMACS-BUFFER "CPARSE.LISP#> GYRO.ZETAC; ASTARTE:" 31305365>
Local 7 (BUF-2): GLOBAL:NIL
Local 8 (DEFAULT): #FS:LM-PATHNAME "ASTARTE: GYRO.ZETAC; CPARSE.LISP#>"
Local 9 (OUTPUT-BUFFER): #<ZMACS-BUFFER "CPARSE.LISP#> GYRO.ZETAC; ASTARTE:" 31305365>
Local 10 (INTERVAL): #<NODE 40277055>
Local 11 (MARKS): ((** ** ** ** ...) (** ** ** ** ...) (** ** ** ** ...) (** ** ** ** ...))


Remainder of stack:

ZWEI:COM-EXTENDED-COMMAND (P.C. = 67)
ZWEI:COMMAND-EXECUTE (P.C. = 115)
ZWEI:PROCESS-COMMAND-CHAR (P.C. = 65)
(:METHOD ZWEI:WINDOW :EDIT) (P.C. = 464)
(:INTERNAL (:METHOD ZWEI:ZMACS-WINDOW :COMBINED :EDIT) 0.) (P.C. = 74)
GLOBAL:FUNCALL (P.C. = 25)
(:METHOD ZWEI:DISPLAYER :AROUND :EDIT) (P.C. = 31)
(:METHOD ZWEI:ZMACS-WINDOW :COMBINED :EDIT) (P.C. = 47)
ZWEI:ZMACS-WINDOW-TOP-LEVEL (P.C. = 46)
SI:PROCESS-TOP-LEVEL (P.C. = 152)