I'm running cvs head and using slime-fancy (which includes slime-
autodoc).
swank:tokenize-symbol-thoroughly is looking for a package specifier
and complains if it sees more than two colons. It thinks it's parsing
a symbol but this chunk of code causes it to signal an error when
called with the format control string:
(with-slots (n-start n-pairs min-word legal-chars pairs pair-table) db
(when verbose
(format t "n-start: ~d, n-pairs: ~d, min-word: ~d~%" n-start n-pairs
min-word))
(dotimes (i n-pairs)
(NB: this obviously isn't a fully formed sexp, just the the smallest
text blob I could reproduce this with...)
To reproduce this, load slime (w/ autodoc or fancy), bring the above
four lines up in a lisp buffer and try to C-n to the last line
(backtrace below). There's something about the first two lines that's
relevant. If you delete either the (with-slots...) or (when
verbose...) (or both) this doesn't happen.
More than two colons in "\"n-start: ~d, n-pairs: ~d, min-word: ~d~%\""
[Condition of type SIMPLE-ERROR]
Restarts:
0: [ABORT] Return to SLIME's top level.
1: [ABORT-BREAK] Reset this thread
2: [ABORT] Kill this thread
Backtrace:
0: (SWANK::TOKENIZE-SYMBOL-THOROUGHLY "\"n-start: ~d, n-pairs: ~d,
min-word: ~d~%\"")
Locals:
STRING = "\"n-start: ~d, n-pairs: ~d, min-word: ~d~%\""
PACKAGE = "\"N-START"
SWANK::TOKEN = " ~D, N-PAIRS ~D, MIN-WORD"
SWANK::BACKSLASH = NIL
SWANK::VERTICAL = NIL
SWANK::INTERNP = T
CHAR = #\:
#:LOOP-ACROSS-VECTOR-2378 = "\"n-start: ~d, n-pairs: ~d, min-
word: ~d~%\""
#:LOOP-ACROSS-INDEX-2379 = 36
#:LOOP-ACROSS-LIMIT-2380 = 42
1: (SWANK::PARSE-SYMBOL "\"n-start: ~d, n-pairs: ~d, min-word: ~d~%
\"" #<Package "COMMON-LISP-USER">)
2: (SWANK::READ-CONVERSATIVELY "\"n-start: ~d, n-pairs: ~d, min-
word: ~d~%\"")
3: (SWANK::PARSE-RAW-FORM ("format" "t" "\"n-start: ~d, n-pairs:
~d, min-word: ~d~%\"" "n-start" "n-pairs" "min-word"))
4: (SWANK::PARSE-RAW-FORM ("when" "verbose" ("format" "t" "\"n-
start: ~d, n-pairs: ~d, min-word: ~d~%\"" "n-start" "n-pairs" "min-
word")))
5: (SWANK::PARSE-RAW-FORM ("with-slots" ("n-start" "n-pairs" "min-
word" "legal-chars" "pairs" "pair-table") "db" ..)))
6: ((:INTERNAL SWANK:ARGLIST-FOR-ECHO-AREA))
7: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<COMPILED-LEXICAL-CLOSURE
(:INTERNAL SWANK:ARGLIST-FOR-ECHO-AREA) #x3000415FF41F>)
8: (CCL::CALL-CHECK-REGS SWANK:ARGLIST-FOR-ECHO-AREA ("with-
slots" ("n-start" "n-pairs" "min-word" "legal-chars" "pairs" "pair-
table") "db" ..)) :PRINT-RIGHT-MARGIN 1000 :PRINT-LINES 1)
9: (SWANK::EVAL-FOR-EMACS (SWANK:ARGLIST-FOR-ECHO-AREA ..))))
"COMMON-LISP-USER" 9)
10: ((:INTERNAL SWANK::SPAWN-WORKER-THREAD))
11: (#<Anonymous Function #x30004124EB3F> #<Compiled-function
SWANK:SWANK-DEBUGGER-HOOK #x30004138413F> #<Compiled-function
(:INTERNAL SWANK::SPAWN-WORKER-THREAD) (Non-Global) #x30004131288F>)
12: (SWANK::CALL-WITH-BINDINGS ((*STANDARD-OUTPUT* . #1=#<SWANK-
BACKEND::SLIME-OUTPUT-STREAM #x300041427ABD>) (*STANDARD-INPUT* .
#<SWANK-BACKEND::SLIME-INPUT-STREAM #x300041427E7D>) ..))) #<COMPILED-
LEXI..
13: (SWANK::CALL-WITH-CONNECTION #<CONNECTION #x3000413BC66D>
#<Compiled-function (:INTERNAL SWANK::SPAWN-WORKER-THREAD) (Non-
Global) #x30004131288F>)
14: (SWANK::CALL-WITH-BINDINGS NIL #<COMPILED-LEXICAL-CLOSURE
(:INTERNAL SWANK::SPAWN-WORKER-THREAD) #x3000415FFAFF>)
15: (SWANK-BACKEND::ENTRY)
16: (CCL::RUN-PROCESS-INITIAL-FORM #<PROCESS worker(14) [Active]
#x300041568DBD> (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS-
RUN-FUNCTION) #x300041568B3F>))
17: ((:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (PROCESS))) #<PROCESS
worker(14) [Active] #x300041568DBD> (#<COMPILED-LEXICAL-CLOSURE
(:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x300041568B3F>))
18: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))
