Meta-] bug

[David M. J. Saslav <SAZ@OZ.AI.MIT.EDU>]

In Symbolics 3670 Zwei in Release 6.1, IP-TCP 29.13, 6-1-Patches 1.0,
AISite 11.1, microcode TMC5-IO4-MIC 336, FEP 22, on Lisp Machine Duane Allman:

the following situation fails for Meta-] (# indicates cursorpos or one
charspace away from cursorpos, makes no difference here):

------------------------------------------------------------------------

#(defun MY-FUN (arg1 arg2 arg3)

   ;;Comments inserted after one or more blanklines
   (rest-of-code))

------------------------------------------------------------------------
META-] PUTS CURSOR HERE
------------------------------------------------------------------------

(defun MY-FUN (arg1 arg2 arg3)#

   ;;Comments inserted after one or more blanklines
   (rest-of-code))

------------------------------------------------------------------------
RATHER THAN HERE
------------------------------------------------------------------------

(defun MY-FUN (arg1 arg2 arg3)

   ;;Comments inserted after one or more blanklines
   (rest-of-code))#

------------------------------------------------------------------------
AS (I BELIEVE) IT SHOULD.

saz