[slime-devel] slime-list-callers broken again, under Lispworks

[Alain.Picard at memetrics.com]

Martin Simmons writes:
 > It works for me, provided (readtable-case *readtable*) is :upcase.

Hmm.  My readtable-case is also :upcase, but it still fails.

For example, in this trace:

Unknown symbol: get-content-instruction [in #<PACKAGE COMMON-LISP-USER>]
   [Condition of type SIMPLE-ERROR]

Restarts:
  0: [ABORT] Abort handling SLIME request.
  1: [ABORT] Quit process.

Backtrace:
  0: CONDITIONS::CONDITIONS-ERROR (:INVISIBLEP T "Unknown symbol: ~A [in ~A]" ("get-content-instruction" #<PACKAGE COMMON-LISP-USER>))
  1: SWANK:XREF (:CALLERS "get-content-instruction")
  2: SPECIAL::%EVAL-NOHOOK ((SWANK:XREF (QUOTE :CALLERS) (QUOTE "get-content-instruction")))
  3: IV:PROCESS-TOP-LEVEL (DSPEC:*CURRENT-FORM* #S(LEXICAL::ENVIRONMENT LEXICAL::VARIABLES NIL LEXICAL::FUNCTIONS NIL LEXICAL::REMOTE-ENVIRONMENT NIL) #<function LEXICAL:EVAL-WITH-ENV 20205D6A> &OPTIONAL :EXECUTE)
  4: SWANK::EVAL-FOR-EMACS ((SWANK:XREF (QUOTE :CALLERS) (QUOTE "get-content-instruction")) ":xos" 733)
  5: FUNCALL (SWANK::EVAL-FOR-EMACS &REST ((SWANK:XREF (QUOTE :CALLERS) (QUOTE "get-content-instruction")) ":xos" 733))
  6: (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 SWANK::HANDLE-REQUEST) NIL
  [SNIP]

fails, but calling what swank is trying to send to emacs, i.e.

XOS> (SWANK:XREF (QUOTE :CALLERS) (QUOTE "get-content-instruction"))
(("/home/kooks/XOS/Bullseye/src/Allocator/content-instruction.lisp" ("(DEFUN GET-LEVEL-VALUE-PAIRS)" :LOCATION (:FILE "/home/kooks/XOS/Bullseye/src/Allocator/content-instruction.lisp") (:POSITION 5678 T) NIL)))

Works, but not from another package:

CL-USER> (SWANK:XREF (QUOTE :CALLERS) (QUOTE "get-content-instruction"))
 [Raises same error]

So it seems to be something to do with *package* not being set
to what is the package in that file at the time "C-c <" is pressed.
(a wild guess).

What's even weirder is that evaluating the above form
in the debugger frame... succeeds!  So I'm way confused.