[slime-devel] sbcl source position

[Gábor Melis]

On sbcl head with slime head when trying to compile the src/code/numbers.lisp file in sbcl I get this:

error while parsing arguments to DESTRUCTURING-BIND:
  invalid number of elements in
    ((52353 . 53472) (53454 . 53471) (52440 . 52874) (52847 . 52870))
  to satisfy lambda list
    ((SWANK-BACKEND::START . SWANK-BACKEND::END)):
  exactly 1 expected, but 4 found
   [Condition of type ARG-COUNT-ERROR]

Restarts:
  0: [ABORT] Abort SLIME compilation.
  1: [ABORT-REQUEST] Abort handling SLIME request.
  2: [TERMINATE-THREAD] Terminate this thread (#<THREAD "worker" {B6E9EA1}>)

Backtrace:
  0: (SWANK-BACKEND::SOURCE-PATH-SOURCE-POSITION (0 4 3 2) NIL #<HASH-TABLE :TEST EQ :COUNT 47 {C30B181}>)
  1: (SWANK-BACKEND::SOURCE-PATH-FILE-POSITION (104 4 3 2) #P"/home/mega/lisp/cvs/sbcl/src/code/numbers.lisp")
  2: (SWANK-BACKEND::LOCATE-COMPILER-NOTE #P"/home/mega/lisp/cvs/sbcl/src/code/numbers.lisp" (104 4 3 2) "  (SB-VM::LOGNOT-MOD32 (SB-KERNEL::PREPARE-ARGUMENT SB-VM::X))")
  3: (SWANK-BACKEND::COMPILER-NOTE-LOCATION #<SB-C::COMPILER-ERROR-CONTEXT >)
  4: (SWANK-BACKEND::SIGNAL-COMPILER-CONDITION #<CODE-DELETION-NOTE {C2CF5F9}> #<SB-C::COMPILER-ERROR-CONTEXT >)
  5: (SWANK-BACKEND::HANDLE-NOTIFICATION-CONDITION #<CODE-DELETION-NOTE {C2CF5F9}>)
  6: (SIGNAL #<CODE-DELETION-NOTE {C2CF5F9}>)
  7: (SB-C:COMPILER-NOTIFY CODE-DELETION-NOTE)
  8: (SB-C::NOTE-BLOCK-DELETION #<SB-C::CBLOCK NIL :START c1 {C2CE4B9}>)
  9: (SB-C::DELETE-BLOCK #<SB-C::CBLOCK NIL :START c1 {C2CE4B9}> NIL)
 10: (SB-C::CLEAN-COMPONENT #<SB-C:COMPONENT :NAME "DEFUN SB-VM::LOGNOT-MOD32" :REANALYZE T {C2CD839}> #<unavailable argument>)
 11: (SB-C::IR1-OPTIMIZE #<SB-C:COMPONENT :NAME "DEFUN SB-VM::LOGNOT-MOD32" :REANALYZE T {C2CD839}> NIL)
 12: (SB-C::IR1-OPTIMIZE-UNTIL-DONE #<SB-C:COMPONENT :NAME "DEFUN SB-VM::LOGNOT-MOD32" :REANALYZE T {C2CD839}>)
 13: (SB-C::IR1-PHASES #<SB-C:COMPONENT :NAME "DEFUN SB-VM::LOGNOT-MOD32" :REANALYZE T {C2CD839}>)
 14: (SB-C::COMPILE-COMPONENT #<SB-C:COMPONENT :NAME "DEFUN SB-VM::LOGNOT-MOD32" :REANALYZE T {C2CD839}>)
 15: (SB-C::COMPILE-TOPLEVEL (#<SB-C::CLAMBDA :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-NAME (SB-C::TOP-LEVEL-FORM #) :KIND :TOPLEVEL :TYPE #<BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :VARS NIL {C2C70E9}>) NIL)
 16: (SB-C::CONVERT-AND-MAYBE-COMPILE (SB-IMPL::%DEFUN (QUOTE SB-VM::LOGNOT-MOD32) (NAMED-LAMBDA SB-VM::LOGNOT-MOD32 (SB-VM::X) (BLOCK SB-VM::LOGNOT-MOD32 #)) NIL (QUOTE NIL) (SB-C:SOURCE-LOCATION)) (#1=(SB-IMPL::%DEFUN (QUOTE SB-VM::LOGNOT-MOD32) (NAMED-LAMBDA SB-VM::LOGNOT-MOD32 # #) NIL (QUOTE NIL) (SB-C:SOURCE-LOCATION)) #2=(EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) #1#) (PROGN (EVAL-WHEN # #) #2#) SB-C::ORIGINAL-SOURCE-START 47 4 104))
 17: ((FLET SB-C::DEFAULT-PROCESSOR) (SB-IMPL::%DEFUN (QUOTE SB-VM::LOGNOT-MOD32) (NAMED-LAMBDA SB-VM::LOGNOT-MOD32 (SB-VM::X) (BLOCK SB-VM::LOGNOT-MOD32 #)) NIL (QUOTE NIL) (SB-C:SOURCE-LOCATION)))
 18: (SB-C::PROCESS-TOPLEVEL-FORM (SB-IMPL::%DEFUN (QUOTE SB-VM::LOGNOT-MOD32) (NAMED-LAMBDA SB-VM::LOGNOT-MOD32 (SB-VM::X) (BLOCK SB-VM::LOGNOT-MOD32 #)) NIL (QUOTE NIL) (SB-C:SOURCE-LOCATION)) (#1=(EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) (SB-IMPL::%DEFUN # # NIL # #)) (PROGN (EVAL-WHEN # #) #1#) SB-C::ORIGINAL-SOURCE-START 47 4 104) NIL)
 19: (SB-C::PROCESS-TOPLEVEL-PROGN ((SB-IMPL::%DEFUN (QUOTE SB-VM::LOGNOT-MOD32) (NAMED-LAMBDA SB-VM::LOGNOT-MOD32 # #) NIL (QUOTE NIL) (SB-C:SOURCE-LOCATION))) (#1=(EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) (SB-IMPL::%DEFUN # # NIL # #)) (PROGN (EVAL-WHEN # #) #1#) SB-C::ORIGINAL-SOURCE-START 47 4 104) NIL)

Gábor