string search error

[Daniel Weise <DANIEL@MIT-MC.ARPA>]

In Symbolics 3670 Release 6.0, IP-TCP 29.0, AISite 9.0,
Experimental Nodes 7.0, microcode TMC5-IO4-MIC 319, FEP 22, on Lisp Machine Sid Vicious:

I had recently done a Compile Changed Definitions, which registered an
End of file within defun error, but that was almost a minute ago....anyway,
the end of file problem seemed to be within #| |#'s so I did a reverse
search for #'s and this happened!  Ye Gads!

saz

>>Trap: The first argument given to the ARRAY-LEADER instruction, NIL, was not an array.
While in the function ZWEI:SEARCH  ZWEI:INCREMENTAL-SEARCH  ZWEI:COM-REVERSE-INCREMENTAL-SEARCH

ZWEI:SEARCH:  (P.C. = 461)
   Arg 0 (BP): (";;; OR PITCH is NIL which is a rest!" 36)
   Arg 1 (STRING): "# "
   Arg 2 (REVERSEP): T
   Arg 3 (FIXUP-P): NIL
   Arg 4 (LINES-TO-SEARCH): 64
   Local 4 (LINES-TO-SEARCH): 17
   --Defaulted args:--
   Arg 5 (LIMIT-BP): (";;; -*- Package: MUSIC; Base: 10.; Mode: LISP -*-" 0 :NORMAL)
   Arg 6: NIL
   Local 7 (NLPOS): NIL
   Local 8 (LINE): NIL
   Local 9 (LEN): 2
   Local 10 (FROM-INDEX): NIL
   Local 11 (FIRST-LINE): ";;; -*- Package: MUSIC; Base: 10.; Mode: LISP -*-"
   Local 12 (*LAST-LINE*): NIL
   Local 13 (*THIS-IS-THE-LAST-LINE*): #<DTP-ODD-PC 31554012>

ZWEI:INCREMENTAL-SEARCH:  (P.C. = 657)
   Arg 0 (REVERSE-P): T

ZWEI:COM-REVERSE-INCREMENTAL-SEARCH:  (P.C. = 7)

ZWEI:COMMAND-EXECUTE:  (P.C. = 57)
   Arg 0 (COMMAND): ZWEI:COM-REVERSE-INCREMENTAL-SEARCH
   Arg 1 (CHAR): 338
   Arg 2 (PREFIX-CHAR): NIL
   Arg 3 (HOOK-LIST): NIL

ZWEI:PROCESS-COMMAND-CHAR:  (P.C. = 14)
   Arg 0 (CH): 338

(:METHOD ZWEI:EDITOR :EDIT):  (P.C. = 233)
   Arg 0 (SELF): #<ZMACS-TOP-LEVEL-EDITOR 121171573>
   Arg 1 (SELF-MAPPING-TABLE): #<Map to flavor ZWEI:EDITOR -- 12. IV's, 0. FL's 142346020>
   Arg 2 (OPERATION): :EDIT
   --Defaulted args:--
   Arg 3 (TOP-LEVEL-P): T
   Arg 4 (DESCRIPTION): NIL

(:METHOD ZWEI:TOP-LEVEL-EDITOR :COMBINED :EDIT):  (P.C. = 60)
   Arg 0 (SELF): #<ZMACS-TOP-LEVEL-EDITOR 121171573>
   Arg 1 (SELF-MAPPING-TABLE): #<Map to flavor ZWEI:TOP-LEVEL-EDITOR -- 13. IV's, 1. FL's 142345776>
   Arg 2 (.OPERATION.): :EDIT
   Rest arg (.DAEMON-CALLER-ARGS.): NIL

ZWEI:ZMACS-WINDOW-TOP-LEVEL:  (P.C. = 51)

Rest of stack:
SI:PROCESS-TOP-LEVEL:  (P.C. = 54)