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.