[slime-devel] slime-edit-fdefinition blows up

[Alain.Picard at memetrics.com]

Dear all,

On slime + Lispworks:

Sometimes slime-edit-fdefinition can get pretty confused;
placing point after  DEFINE-TOOLTIP in the following form
and hitting M-.

(define-tooltip data-manipulation-node
    "Some generic info on import/exports"
  :br
  "You can put " (:strong "arbitrary") "html code in here.")

emacs asks me "Enter recursive edit? (Y/N)"

Hitting Y, and opening a few key frames, I get
the following backtraces.

Which ECASE expression are we falling out of?
Thanks.

================================================================

DEFMACRO fell through ECASE expression.
Wanted one of (DEFUN METHOD LISPWORKS:TOP-LEVEL-FORM).
   [Condition of type CONDITIONS:CASE-FAILURE]

Restarts:
  0: [ABORT] Return to SLIME toplevel.
  1: [ABORT] Quit process.

Backtrace:
  0: GET-CALL-FRAME (FRAME-POINTER PREV-FRAME)
      Locals:
        DBG::FRAME-POINTER = (6920 . #<pumpkin, tag 0 C9590030>)
        DBG::PREV-FRAME = #<unbound>
      [No catch-tags]
  1: SWANK-DEBUGGER-HOOK (CONDITION HOOK)
  2: DEBUG1 (&OPTIONAL DATUM &REST ARGUMENTS)
  3: INVOKE-DEBUGGER (&REST X)
  4: CONDITIONS-ERROR (INVISIBLEP T DATUM ARGUMENTS)
  5: MAKE-DSPEC-LOCATION (DSPEC LOCATION &OPTIONAL TMPFILE BUFFER POSITION)
      Locals:
        SWANK::DSPEC = (DEFMACRO DEFINE-TOOLTIP)
        SWANK::LOCATION = #P"XOS:UI;USER-INTERFACE.LISP.NEWEST"
        SWANK::TMPFILE = NIL
        SWANK::BUFFER = NIL
        POSITION = NIL
      [No catch-tags]
  6: DSPEC-SOURCE-LOCATIONS (DSPEC)
      Locals:
        SWANK::DSPEC = DEFINE-TOOLTIP
        SWANK::LOCATIONS = (((DEFMACRO DEFINE-TOOLTIP) #P"XOS:UI;USER-INTERFACE.LISP.NEWEST"))
        SWANK::DSPEC = (DEFMACRO DEFINE-TOOLTIP)
        SWANK::LOCATION = #P"XOS:UI;USER-INTERFACE.LISP.NEWEST"
        DBG::|tail-| = NIL
        DBG::|accumulator-| = (NIL)
        DBG::|aux-var-| = (NIL)
      [No catch-tags]
  7: %EVAL-NOHOOK (EXP)
  8: PROCESS-TOP-LEVEL (*CURRENT-FORM* ENV CONT &OPTIONAL MODE)
  9: EVAL-STRING (STRING BUFFER-PACKAGE ID)
      Locals:
        STRING = "(swank:find-function-locations \"define-tooltip\")"
        SWANK::BUFFER-PACKAGE = "xos"
        SWANK::ID = 62
        *DEBUGGER-HOOK* = #<function SWANK::SWANK-DEBUGGER-HOOK 21F8C54A>
        SWANK::OK = NIL
        SWANK::RESULT = NIL
        SWANK::*BUFFER-PACKAGE* = #<PACKAGE XOS>
        SWANK::*SWANK-STATE-STACK* = (:EVAL-STRING :HANDLE-REQUEST)
      [No catch-tags]
  10: FUNCALL (FUNCTION &REST ARGS)
  11: (SUBFUNCTION 2 HANDLE-REQUEST) NIL
  12: CALL-WITH-REDIRECTED-IO (CONNECTION FUNCTION)
  13: HANDLE-REQUEST NIL
  14: (SUBFUNCTION PROCESS-SG-FUNCTION INITIALIZE-PROCESS-STACK) (IGNORED)
  15: %%FIRST-CALL-TO-STACK NIL
 --more--