The editor gets into this error state, and I can't get it out

[Michele Covell <mmc@DSPVAX.MIT.EDU>]

                         (2 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
Fonts: CPTFONT, CPTFONTCB, CPTFONTI

Whenever I have loaded in the source for this function, and I edit the
file that contains the definition, the editor gets stuck.  Restarting
the editor or providing a "replacement argument" doesn't help (the first
results in the error again and the second has no effect in that the
replacement seems to be ignored).

In Symbolics 3600 Zwei in Genera 7.0, System 349.149, Utilities 10.20,
IP-TCP 52.0, 7-0-Patches 1.24, MAC 7.0, NFS 1.0,
microcode 3640-FPA-MIC 394, FEP 127, FEP0:>v127-lisp.flod(44),
FEP0:>v127-loaders.flod(44), FEP0:>v127-info.flod(44),
FEP0:>v127-debug.flod(31), on Lisp Machine Tweety Pie:
Processes forcibly aborted:
  ZMACS-WINDOWS aborted with the following warning:
    The function (:INTERNAL SI:WITH-INPUT-EDITING-INTERNAL 0 LT:BODY) is executing a cleanup form.
    Aborting before the cleanup is complete could leave the program in
    an inconsistent state and cause it to operate incorrectly later.



1Error: The first argument (FUNCTION-SPEC) to SI:FUNCTION-SPEC-GET, 'SEQ-CORRELATION-COEFFICIENT, was of the wrong type.
       The function expected a symbol or a function-spec list.
0While in the function SI:FUNCTION-SPEC-GET  SI:FUNCTION-CORRESPONDENCE-INFO  DBG:FUNCTION-AND-PC-FROM-PRESENTATION-NODE

The condition signalled was ZL:CHECK-ARG

1SI:FUNCTION-SPEC-GET0:  (P.C. = 31)
   Arg 0 (SYS:FUNCTION-SPEC): (QUOTE SEQ-CORRELATION-COEFFICIENT)
   Arg 1 (SI:INDICATOR): ZWEI:ZMACS-BUFFERS
   Local 2 (SI:TYPE): NIL

1SI:FUNCTION-CORRESPONDENCE-INFO0:  (P.C. = 20)
   Arg 0 (FUNCTION): #<DTP-COMPILED-FUNCTION SEQ-CORRELATION-COEFFICIENT 160064401>

1DBG:FUNCTION-AND-PC-FROM-PRESENTATION-NODE0:  (P.C. = 27)
   Arg 0 (DBG:NODE): #<PRESENTATION-NODE 43103266>

1(DW::PRESENTATION-MOUSE-HANDLER ZWEI:SET-BREAKPOINT :TESTER)0:  (P.C. = 23)
   Arg 0 (ZWEI:.OBJECT.): INTERVAL.
   Rest arg (ZWEI:OPTIONS): (:HANDLER #S(DW::PRESENTATION-MOUSE-HANDLER :HANDLER-FUNCTIONS #S(DW::PRESENTATION-MOUSE-HANDLER-FUNCTIONS :NAME ZWEI:SET-BREAKPOINT :VALUE-FUNCTION #<DTP-COMPILED-FUNCTION (DW::PRESENTATION-MOUSE-HANDLER ZWEI:SET-BREAKPOINT) 150031121> :TESTER-FUNCTION #<DTP-COMPILED-FUNCTION (DW::PRESENTATION-MOUSE-HANDLER ZWEI:SET-BREAKPOINT :TESTER) 150031170> :DOCUMENTATION-OR-FUNCTION NIL) :CONTEXT-PRESENTATION-TYPE ZWEI:PRESENTATION-COMMAND :DISPLAYED-PRESENTATION-TYPE SYS:CODE-FRAGMENT :OBJECT-TYPE T :GESTURE ...) :GESTURE :SET-BREAKPOINT :PRESENTATION #<PRESENTATION-NODE 43103266> :WINDOW #<ZMACS-WINDOW-PANE Zmacs Window Pane 5 1126060 exposed> :INPUT-CONTEXT (((OR ZWEI:PRESENTATION-COMMAND SI:INPUT-EDITOR-BUFFER)) NIL T))

1DW::TEST-HANDLER0:  (P.C. = 56)  2(from SYS:PATCH;SYSTEM-349-115)
0   Arg 0 (DW::HANDLER-ENTRY): (#S(DW::PRESENTATION-MOUSE-HANDLER :HANDLER-FUNCTIONS #S(DW::PRESENTATION-MOUSE-HANDLER-FUNCTIONS :NAME ZWEI:SET-BREAKPOINT :VALUE-FUNCTION #<DTP-COMPILED-FUNCTION (DW::PRESENTATION-MOUSE-HANDLER ZWEI:SET-BREAKPOINT) 150031121> :TESTER-FUNCTION #<DTP-COMPILED-FUNCTION (DW::PRESENTATION-MOUSE-HANDLER ZWEI:SET-BREAKPOINT :TESTER) 150031170> :DOCUMENTATION-OR-FUNCTION NIL) :CONTEXT-PRESENTATION-TYPE ZWEI:PRESENTATION-COMMAND :DISPLAYED-PRESENTATION-TYPE SYS:CODE-FRAGMENT :OBJECT-TYPE T :GESTURE ...) NIL NIL)
   Arg 1 (DW:PRESENTATION): #<PRESENTATION-NODE 43103266>
   Arg 2 (DW::WINDOW): #<ZMACS-WINDOW-PANE Zmacs Window Pane 5 1126060 exposed>
   Arg 3 (DW::CONTEXT): (((OR ZWEI:PRESENTATION-COMMAND SI:INPUT-EDITOR-BUFFER)) NIL T)
   Arg 4 (DW::GESTURE): :SET-BREAKPOINT
2   --Defaulted args:--
0   Arg 5 (DW::MENU-ITEM-FOUND): NIL

1(:INTERNAL (:INTERNAL DW::FIND-INNERMOST-SENSITIVE-PRESENTATION 2 DW::DO-ONE-CONTEXT) 0)0:  (P.C. = 101)
   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<DTP-LOCATIVE 52700744>
   Arg 1 (DW::HANDLER-ENTRY): (#S(DW::PRESENTATION-MOUSE-HANDLER :HANDLER-FUNCTIONS #S(DW::PRESENTATION-MOUSE-HANDLER-FUNCTIONS :NAME ZWEI:SET-BREAKPOINT :VALUE-FUNCTION #<DTP-COMPILED-FUNCTION (DW::PRESENTATION-MOUSE-HANDLER ZWEI:SET-BREAKPOINT) 150031121> :TESTER-FUNCTION #<DTP-COMPILED-FUNCTION (DW::PRESENTATION-MOUSE-HANDLER ZWEI:SET-BREAKPOINT :TESTER) 150031170> :DOCUMENTATION-OR-FUNCTION NIL) :CONTEXT-PRESENTATION-TYPE ZWEI:PRESENTATION-COMMAND :DISPLAYED-PRESENTATION-TYPE SYS:CODE-FRAGMENT :OBJECT-TYPE T :GESTURE ...) NIL NIL)
   Arg 2 (DW::GESTURE): :SET-BREAKPOINT
   Arg 3 (DW::GESTURE-MATCH-P): NIL

1DW::MAP-OVER-HANDLER-ALIST-AND-GESTURES-IN-CONTEXT0:  (P.C. = 216)
   Arg 0 (DW:PRESENTATION): #<PRESENTATION-NODE 43103266>
   Arg 1 (DW::WINDOW): #<ZMACS-WINDOW-PANE Zmacs Window Pane 5 1126060 exposed>
   Arg 2 (DW::HANDLER-ALIST): (NIL (:SELECT-OBJECT (#S(DW::PRESENTATION-MOUSE-HANDLER :HANDLER-FUNCTIONS # :CONTEXT-PRESENTATION-TYPE T :DISPLAYED-PRESENTATION-TYPE T :OBJECT-TYPE T :GESTURE ...) NIL NIL)) (:MENU (#S(DW::PRESENTATION-MOUSE-HANDLER :HANDLER-FUNCTIONS # :CONTEXT-PRESENTATION-TYPE T :DISPLAYED-PRESENTATION-TYPE T :OBJECT-TYPE T :GESTURE ...) NIL NIL)) (:EDIT-VIEWSPECS (#S(DW::PRESENTATION-MOUSE-HANDLER :HANDLER-FUNCTIONS # :CONTEXT-PRESENTATION-TYPE T :DISPLAYED-PRESENTATION-TYPE T :OBJECT-TYPE T :GESTURE ...) NIL NIL)) (:REPRINT-DIFFERENTLY (#S(DW::PRESENTATION-MOUSE-HANDLER :HANDLER-FUNCTIONS # :CONTEXT-PRESENTATION-TYPE T :DISPLAYED-PRESENTATION-TYPE T :OBJECT-TYPE T :GESTURE ...) NIL NIL)) (:SYSTEM-MENU (#S(DW::PRESENTATION-MOUSE-HANDLER :HANDLER-FUNCTIONS # :CONTEXT-PRESENTATION-TYPE T :DISPLAYED-PRESENTATION-TYPE T :OBJECT-TYPE T :GESTURE ...) NIL NIL)) (:WINDOW-OPERATION-MENU (#S(DW::PRESENTATION-MOUSE-HANDLER :HANDLER-FUNCTIONS # :CONTEXT-PRESENTATION-TYPE T :DISPLAYED-PRESENTATION-TYPE T :OBJECT-TYPE T :GESTURE ...) NIL NIL)) (:PRESENTATION-DEBUGGING-MENU (#S(DW::PRESENTATION-MOUSE-HANDLER :HANDLER-FUNCTIONS # :CONTEXT-PRESENTATION-TYPE T :DISPLAYED-PRESENTATION-TYPE T :OBJECT-TYPE T :GESTURE ...) NIL NIL)) (:SELECT-AND-ACTIVATE (#S(DW::PRESENTATION-MOUSE-HANDLER :HANDLER-FUNCTIONS # :CONTEXT-PRESENTATION-TYPE T :DISPLAYED-PRESENTATION-TYPE SYS:EXPRESSION :OBJECT-TYPE SYS:EXPRESSION :GESTURE ...) NIL NIL) (#S(DW::PRESENTATION-MOUSE-HANDLER :HANDLER-FUNCTIONS # :CONTEXT-PRESENTATION-TYPE T :DISPLAYED-PRESENTATION-TYPE T :OBJECT-TYPE T :GESTURE ...) NIL NIL)) (:MODIFY (#S(DW::PRESENTATION-MOUSE-HANDLER :HANDLER-FUNCTIONS # :CONTEXT-PRESENTATION-TYPE T :DISPLAYED-PRESENTATION-TYPE SYS:EXPRESSION :OBJECT-TYPE SYS:EXPRESSION :GESTURE ...) NIL NIL)) ...)
   Arg 3 (DW::GESTURES-TO-MATCH): (:LEFT :SELECT :MIDDLE :DESCRIBE :SELECT-AND-EDIT :RIGHT :MENU)
   Arg 4 (DW::CONTEXT): (((OR ZWEI:PRESENTATION-COMMAND SI:INPUT-EDITOR-BUFFER)) NIL T)
   Arg 5 (FUNCTION): #<LEXICAL-CLOSURE (:INTERNAL # 0) 52700746>

1(:INTERNAL DW::FIND-INNERMOST-SENSITIVE-PRESENTATION 2 DW::DO-ONE-CONTEXT)0:  (P.C. = 37)
   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<DTP-LOCATIVE 52700632>
   Arg 1 (DW::CONTEXT): (((OR ZWEI:PRESENTATION-COMMAND SI:INPUT-EDITOR-BUFFER)) NIL T)

2Rest of stack:
1(:INTERNAL DW::MAP-OVER-INPUT-CONTEXTS 0 DW::SEARCH-ONE-PRESENTATION-INPUT-CONTEXT)0:  (P.C. = 13)
1DW::MAP-OVER-INPUT-CONTEXTS0:  (P.C. = 14)
1DW::FIND-INNERMOST-SENSITIVE-PRESENTATION0:  (P.C. = 76)2  (from SYS:PATCH;SYSTEM-349-25)
1(FLAVOR:METHOD :UPDATE-HIGHLIGHTED-PRESENTATION DW::DYNAMIC-MOUSE-MIXIN)0:  (P.C. = 127)2  (from SYS:PATCH;SYSTEM-349-25)
1DW::UPDATE-HIGHLIGHTED-PRESENTATION0:  (P.C. = 35)
1SI:READ-CHARACTER-INTERNAL0:  (P.C. = 157)2  (from SYS:PATCH;SYSTEM-349-98)
1(:INTERNAL SYS:READ-CHARACTER 0 SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY)0:  (P.C. = 23)
1(FLAVOR:METHOD SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 22)
1SYS:READ-CHARACTER0:  (P.C. = 105)
1(:INTERNAL (:INTERNAL ZWEI:EDITOR-INPUT 1 SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY) 0 ZWEI:DO-IT)0:  (P.C. = 70)
1(:INTERNAL ZWEI:EDITOR-INPUT 1 SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY)0:  (P.C. = 70)
1(FLAVOR:METHOD SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 22)
1ZWEI:EDITOR-INPUT0:  (P.C. = 73)
1(FLAVOR:METHOD :EDIT ZWEI:EDITOR)0:  (P.C. = 254)
1(:INTERNAL (FLAVOR:COMBINED :EDIT ZWEI:ZMACS-TOP-LEVEL-EDITOR) 1)0:  (P.C. = 20)
1(:INTERNAL (FLAVOR:WHOPPER :EDIT ZWEI:EDITOR) 0 SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY)0:  (P.C. = 7)
1(FLAVOR:METHOD SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 40)
1(FLAVOR:WHOPPER :EDIT ZWEI:EDITOR)0:  (P.C. = 20)
1(FLAVOR:COMBINED :EDIT ZWEI:ZMACS-TOP-LEVEL-EDITOR)0:  (P.C. = 317)
1ZWEI:ZMACS-WINDOW-TOP-LEVEL0:  (P.C. = 55)2  (from SYS:PATCH;SYSTEM-349-88)
1SI:PROCESS-TOP-LEVEL0:  (P.C. = 45)