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.