c-sh-A on a (funcall ...

[Randy Parker <PARKER@OZ.AI.MIT.EDU>]

In Symbolics 3600 Release 6.1, IP-TCP 29.13, 6-1-Patches 1.9,
AISite 11.10, microcode TMC5-MIC 336, FEP 127, FEP0:>v127-lisp.flod(2),
FEP0:>v127-loaders.flod(2), FEP0:>v127-debug.flod(1),
FEP0:>v127-info.flod(2), on PA Lisp Machine Merlin:

IWBNI zwei:quick-arglist observed definition boundaries when doing
a c-sh-a with the point after fn in the following unfinished definition.

(defun bar (y)
  (let ((x 2))
    (funcall fn

To be DWIMing, it goes and tries to method-arglist the next thing after FN,
since this next thing is assumed to be a method.  The merits of that effort
are by themselves debatable, but at the very least if the next form is
another definition (i.e. starts in col 0 with DEF) it shouldn't try to
method-arglist that definition's DEFword.
This is quite time-consuming and I know that to a naive user it must be distressing.

>>Break: 
While in the function ZWEI:METHOD-ARGLIST-INTERNAL  ZWEI:METHOD-ARGLIST-INTERNAL  ZWEI:METHOD-ARGLIST

ZWEI:METHOD-ARGLIST-INTERNAL:  (P.C. = 15)
   Arg 0 (ZWEI:FLAVOR): TV:LISP-INTERACTOR
   Local 0 (ZWEI:FLAVOR): #<FLAVOR TV:LISP-INTERACTOR 123343442>
   Arg 1 (ZWEI:MESSAGE-NAME): FOP
   Arg 2 (ARGLIST): NIL
   Arg 3 (ZWEI:FUN): NIL
   Arg 4 (ZWEI:RETLIST): NIL
   Local 5 (ZWEI:FLAVOR-METHOD-TABLE): etc....