[slime-devel] Bug in SLIME 1.0 from CVS?

[Denis Bueno]

Sorry if you get this twice, the first wasn't from my list-subscribed 
email.

When SLIME starts up, it says:

	; SLIME 2004-09-08

I was visiting a lisp (.cl) buffer and looking at this function:

     (defun first-function (tokens)
       (let ((pos (position "[" tokens :test #'string=)))
         (if (> pos 0) (nth (1- pos) tokens)
             (error "invalid function call: empty function"))))

I put the Emacs cursor after the last right-paren, issued C-c C-c, and 
the SLIME debugger popped up; it said (I've expanded the top stack 
frame):

**********************

invalid number of arguments: 3
    [Condition of type SB-INT:SIMPLE-PROGRAM-ERROR]

Restarts:
   0: [ABORT] Abort handling SLIME request.
   1: [ABORT] Reduce debugger level (leaving debugger, returning to 
toplevel).
   2: [TOPLEVEL] Restart at toplevel READ/EVAL/PRINT loop.

Backtrace:
   0: ("XEP for SWANK::COMPILE-STRING-FOR-EMACS" 3 "(defun 
first-function (tokens)
   (let ((pos (position \"[\" tokens :test #'string=)))
     (if (> pos 0) (nth (1- pos) tokens)
         (error \"invalid function call: empty function\"))))
" "function-parser.cl" 1266 1)[:EXTERNAL]
       Locals:
         SB-DEBUG::ARG-0 = 3
         SB-DEBUG::ARG-1 = "(defun first-function (tokens)
   (let ((pos (position \"[\" tokens :test #'string=)))
     (if (> pos 0) (nth (1- pos) tokens)
         (error \"invalid function call: empty function\"))))
"
         SB-DEBUG::ARG-2 = "function-parser.cl"
         SB-DEBUG::ARG-3 = 1266
         SB-DEBUG::ARG-4 = 1
       [No catch-tags]

***********************

Apparently COMPILE-STRING-FOR-EMACS is being called incorrectly ... but 
I looked in swank.lisp, swank-backend.lisp, slime.el, and 
swank-sbcl.lisp, and all calls to COMPILE-STRING-FOR-EMACS has four 
arguments. So I'm befuddled.

I use SBCL. Am I doing something improperly?

--
Denis Bueno
PGP: http://pgp.mit.edu:11371/pks/lookup?search=0xA1B51B4B&op=index
My other car is a cdr.