[slime-devel] (swank:create-server) leads to sbcl & slime error

Fri Oct 3 14:55:29 UTC 2008

This is a follow-up on my previous message:  I have moved from
sbcl-1.0.14 to 1.0.21 and also updated slime.  Again, this is mostly
an FYI (swank error, slime error), since I am not *that* desperate
yet.

I am following the instructions in the manual for connection to a
remote lisp.  When I execute (swank:create-server) in an sbcl session
that was opened in a terminal, I get the following error message:

* (swank:create-server)

debugger invoked on a SB-BSD-SOCKETS:ADDRESS-IN-USE-ERROR:
  Socket error in "bind": EADDRINUSE (Address already in use)

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT] Exit debugger, returning to top level.

(SB-BSD-SOCKETS:SOCKET-ERROR "bind")
0]

I tried to do the same from slime to get the debugger trace (that is
one of the pursposes, right :-) and got an emacs error.  Here is the
debug output of that one:

Debugger entered--Lisp error: (wrong-number-of-arguments nil 3)
  signal(wrong-number-of-arguments (nil 3))
  (if (= (length --cl-rest--) 2) (pop --cl-rest--) (signal (quote
wrong-number-of-arguments) (list nil ...)))
  (let* ((--cl-rest-- frame) (number ...) (string ...)) (let (...)
(slime-propertize-region props ... ...)))
  (progn (let* (... ... ...) (let ... ...)))
  (destructuring-bind (number string) frame (let (...)
(slime-propertize-region props ... ...)))
  sldb-insert-frame((0 "(SB-BSD-SOCKETS:SOCKET-ERROR \"bind\")"
(:restartable nil)))
  mapc(sldb-insert-frame ((0 "(SB-BSD-SOCKETS:SOCKET-ERROR \"bind\")"
(:restartable nil)) (1 "(SB-BSD-SOCKETS:SOCKET-ERROR
\"bind\")[:EXTERNAL]" (:restartable nil)) (2 "((SB-PCL::FAST-METHOD
SB-BSD-SOCKETS:SOCKET-BIND (SB-BSD-SOCKETS:SOCKET)) #<unavailable
argument> #<.." (:restartable nil))))
  sldb-insert-frames(((0 "(SB-BSD-SOCKETS:SOCKET-ERROR \"bind\")"
(:restartable nil)) (1 "(SB-BSD-SOCKETS:SOCKET-ERROR
\"bind\")[:EXTERNAL]" (:restartable nil)) (2 "((SB-PCL::FAST-METHOD
SB-BSD-SOCKETS:SOCKET-BIND (SB-BSD-SOCKETS:SOCKET)) #<unavailable
argument> #<.." (:restartable nil))) t)
  (save-excursion (sldb-insert-frames (sldb-prune-initial-frames frames) t))
  (if (equal sldb-level level) nil (setq buffer-read-only nil)
(sldb-mode) (unless sldb-saved-window-configuration (setq
sldb-saved-window-configuration ...)) (setq slime-current-thread
thread) (setq sldb-level level) (setq mode-name (format "sldb[%d]"
sldb-level)) (setq sldb-condition condition) (setq sldb-restarts
restarts) (setq sldb-continuations conts) (sldb-insert-condition
condition) (insert "\n\n" (in-sldb-face section #("Restarts:" 0 9
...)) "\n") (sldb-insert-restarts restarts) (insert "\n" (in-sldb-face
section #("Backtrace:" 0 10 ...)) "\n") (setq
sldb-backtrace-start-marker (point-marker)) (save-excursion
(sldb-insert-frames ... t)) (run-hooks (quote sldb-hook)))
  (unless (equal sldb-level level) (setq buffer-read-only nil)
(sldb-mode) (unless sldb-saved-window-configuration (setq
sldb-saved-window-configuration ...)) (setq slime-current-thread
thread) (setq sldb-level level) (setq mode-name (format "sldb[%d]"
sldb-level)) (setq sldb-condition condition) (setq sldb-restarts
restarts) (setq sldb-continuations conts) (sldb-insert-condition
condition) (insert "\n\n" (in-sldb-face section #("Restarts:" 0 9
...)) "\n") (sldb-insert-restarts restarts) (insert "\n" (in-sldb-face
section #("Backtrace:" 0 10 ...)) "\n") (setq
sldb-backtrace-start-marker (point-marker)) (save-excursion
(sldb-insert-frames ... t)) (run-hooks (quote sldb-hook)))
  (save-current-buffer (set-buffer (sldb-get-buffer thread)) (unless
(equal sldb-level level) (setq buffer-read-only nil) (sldb-mode)
(unless sldb-saved-window-configuration ...) (setq
slime-current-thread thread) (setq sldb-level level) (setq mode-name
...) (setq sldb-condition condition) (setq sldb-restarts restarts)
(setq sldb-continuations conts) (sldb-insert-condition condition)
(insert "\n\n" ... "\n") (sldb-insert-restarts restarts) (insert "\n"
... "\n") (setq sldb-backtrace-start-marker ...) (save-excursion ...)
(run-hooks ...)) (pop-to-buffer (current-buffer))
(sldb-recenter-region (point-min) (point)) (setq buffer-read-only t)
(when (and slime-stack-eval-tags) (message "Entering recursive
edit..") (recursive-edit)))
  (with-current-buffer (sldb-get-buffer thread) (unless (equal
sldb-level level) (setq buffer-read-only nil) (sldb-mode) (unless
sldb-saved-window-configuration ...) (setq slime-current-thread
thread) (setq sldb-level level) (setq mode-name ...) (setq
sldb-condition condition) (setq sldb-restarts restarts) (setq
sldb-continuations conts) (sldb-insert-condition condition) (insert
"\n\n" ... "\n") (sldb-insert-restarts restarts) (insert "\n" ...
"\n") (setq sldb-backtrace-start-marker ...) (save-excursion ...)
(run-hooks ...)) (pop-to-buffer (current-buffer))
(sldb-recenter-region (point-min) (point)) (setq buffer-read-only t)
(when (and slime-stack-eval-tags) (message "Entering recursive
edit..") (recursive-edit)))
  sldb-setup(0 2 (#("Socket error in \"bind\": EADDRINUSE (Address
already in use)" 0 59 (face sldb-topline-face)) #("   [Condition of
type SB-BSD-SOCKETS:ADDRESS-IN-USE-ERROR]" 0 58 (face
sldb-condition-face)) nil) ((#("RETRY" 0 5 ...) #("Retry SLIME REPL
evaluation request." 0 36 ...)) (#("ABORT" 0 5 ...) #("Return to sldb
level 1." 0 23 ...)) (#("RETRY" 0 5 ...) #("Retry SLIME REPL
evaluation request." 0 36 ...)) (#("ABORT" 0 5 ...) #("Return to
SLIME's top level." 0 28 ...)) (#("ABORT" 0 5 ...) #("Exit debugger,
returning to top level." 0 38 ...))) ((0 "(SB-BSD-SOCKETS:SOCKET-ERROR
\"bind\")" (:restartable nil)) (1 "(SB-BSD-SOCKETS:SOCKET-ERROR
\"bind\")[:EXTERNAL]" (:restartable nil)) (2 "((SB-PCL::FAST-METHOD
SB-BSD-SOCKETS:SOCKET-BIND (SB-BSD-SOCKETS:SOCKET)) #<unavailable
argument> #<.." (:restartable nil)) (3 "((LAMBDA (SWANK-BACKEND::HOST
SWANK-BACKEND::PORT)) \"127.0.0.1\" 4005)" (:restartable nil)) (4
"(SWANK::SETUP-SERVER 4005 #<FUNCTION SWANK::SIMPLE-ANNOUNCE-FUNCTION>
:FD-HANDLER NIL :ISO-8859-1)" (:restartable nil)) (5
"(SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:CREATE-SERVER) #<NULL-LEXENV>)"
(:restartable nil)) (6 "(SWANK::EVAL-REGION \"(swank:create-server)
\\n\")" (:restartable nil)) (7 "((LAMBDA ()))" (:restartable nil)) (8
"(SWANK::TRACK-PACKAGE #<CLOSURE (LAMBDA #) {1003A8DBE9}>)"
(:restartable nil)) (9 "(SWANK::CALL-WITH-RETRY-RESTART \"Retry SLIME
REPL evaluation request.\" #<CLOSURE (LAMBDA #) {1003A8D.."
(:restartable nil)) (10 "(SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE
(LAMBDA #) {1003A8D9E9}>)" (:restartable nil)) (11 "(SWANK::REPL-EVAL
\"(swank:create-server) \\n\")" (:restartable nil)) (12
"(SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL
\"(swank:create-server) \\n\") #<NULL-LEXENV>)" (:restartable nil))
(13 "(SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL
\"(swank:create-server) \\n\") \"COMMON-LISP-USER\" 11)" (:restartable
nil)) (14 "(SWANK::PROCESS-REQUESTS T)" (:restartable nil)) (15
"(SB-IMPL::SUB-SUB-SERVE-EVENT 0 200000)" (:restartable nil)) (16
"(SB-IMPL::SUB-SERVE-EVENT 0 200000 NIL)" (:restartable nil)) (17
"((LAMBDA (SWANK-BACKEND::STREAMS &OPTIONAL SWANK-BACKEND::TIMEOUT))
(#<SB-SYS:FD-STREAM for \"a socke.." (:restartable nil)) (18
"(SWANK::WAIT-FOR-EVENT/EVENT-LOOP (OR (:EMACS-REX . SWANK::_)
(:SLDB-RETURN 2)) NIL)" (:restartable nil)) (19
"(SWANK::WAIT-FOR-EVENT (OR (:EMACS-REX . SWANK::_) (:SLDB-RETURN 2))
NIL)" (:restartable nil))) (11 5))
  slime-dispatch-event((:debug 0 2 (#("Socket error in \"bind\":
EADDRINUSE (Address already in use)" 0 59 ...) #("   [Condition of
type SB-BSD-SOCKETS:ADDRESS-IN-USE-ERROR]" 0 58 ...) nil) ((#("RETRY"
0 5 ...) #("Retry SLIME REPL evaluation request." 0 36 ...))
(#("ABORT" 0 5 ...) #("Return to sldb level 1." 0 23 ...)) (#("RETRY"
0 5 ...) #("Retry SLIME REPL evaluation request." 0 36 ...))
(#("ABORT" 0 5 ...) #("Return to SLIME's top level." 0 28 ...))
(#("ABORT" 0 5 ...) #("Exit debugger, returning to top level." 0 38
...))) ((0 "(SB-BSD-SOCKETS:SOCKET-ERROR \"bind\")" ...) (1
"(SB-BSD-SOCKETS:SOCKET-ERROR \"bind\")[:EXTERNAL]" ...) (2
"((SB-PCL::FAST-METHOD SB-BSD-SOCKETS:SOCKET-BIND
(SB-BSD-SOCKETS:SOCKET)) #<unavailable argument> #<.." ...) (3
"((LAMBDA (SWANK-BACKEND::HOST SWANK-BACKEND::PORT)) \"127.0.0.1\"
4005)" ...) (4 "(SWANK::SETUP-SERVER 4005 #<FUNCTION
SWANK::SIMPLE-ANNOUNCE-FUNCTION> :FD-HANDLER NIL :ISO-8859-1)" ...) (5
"(SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:CREATE-SERVER) #<NULL-LEXENV>)"
...) (6 "(SWANK::EVAL-REGION \"(swank:create-server) \\n\")" ...) (7
"((LAMBDA ()))" ...) (8 "(SWANK::TRACK-PACKAGE #<CLOSURE (LAMBDA #)
{1003A8DBE9}>)" ...) (9 "(SWANK::CALL-WITH-RETRY-RESTART \"Retry SLIME
REPL evaluation request.\" #<CLOSURE (LAMBDA #) {1003A8D.." ...) (10
"(SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA #)
{1003A8D9E9}>)" ...) (11 "(SWANK::REPL-EVAL \"(swank:create-server)
\\n\")" ...) (12 "(SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL
\"(swank:create-server) \\n\") #<NULL-LEXENV>)" ...) (13
"(SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL \"(swank:create-server)
\\n\") \"COMMON-LISP-USER\" 11)" ...) (14 "(SWANK::PROCESS-REQUESTS
T)" ...) (15 "(SB-IMPL::SUB-SUB-SERVE-EVENT 0 200000)" ...) (16
"(SB-IMPL::SUB-SERVE-EVENT 0 200000 NIL)" ...) (17 "((LAMBDA
(SWANK-BACKEND::STREAMS &OPTIONAL SWANK-BACKEND::TIMEOUT))
(#<SB-SYS:FD-STREAM for \"a socke.." ...) (18
"(SWANK::WAIT-FOR-EVENT/EVENT-LOOP (OR (:EMACS-REX . SWANK::_)
(:SLDB-RETURN 2)) NIL)" ...) (19 "(SWANK::WAIT-FOR-EVENT (OR
(:EMACS-REX . SWANK::_) (:SLDB-RETURN 2)) NIL)" ...)) (11 5))
#<process SLIME Lisp>)
  slime-process-available-input(#<process SLIME Lisp>)
  slime-net-filter(#<process SLIME Lisp> "0008BF(:debug 0 2 (\"Socket
error in \\\"bind\\\": EADDRINUSE (Address already in use)\" \"
[Condition of type SB-BSD-SOCKETS:ADDRESS-IN-USE-ERROR]\" nil)
((\"RETRY\" \"Retry SLIME REPL evaluation request.\") (\"ABORT\"
\"Return to sldb level 1.\") (\"RETRY\" \"Retry SLIME REPL evaluation
request.\") (\"ABORT\" \"Return to SLIME's top level.\") (\"ABORT\"
\"Exit debugger, returning to top level.\")) ((0
\"(SB-BSD-SOCKETS:SOCKET-ERROR \\\"bind\\\")\" (:restartable nil)) (1
\"(SB-BSD-SOCKETS:SOCKET-ERROR \\\"bind\\\")[:EXTERNAL]\"
(:restartable nil)) (2 \"((SB-PCL::FAST-METHOD
SB-BSD-SOCKETS:SOCKET-BIND (SB-BSD-SOCKETS:SOCKET)) #<unavailable
argument> #<..\" (:restartable nil)) (3 \"((LAMBDA
(SWANK-BACKEND::HOST SWANK-BACKEND::PORT)) \\\"127.0.0.1\\\" 4005)\"
(:restartable nil)) (4 \"(SWANK::SETUP-SERVER 4005 #<FUNCTION
SWANK::SIMPLE-ANNOUNCE-FUNCTION> :FD-HANDLER NIL :ISO-8859-1)\"
(:restartable nil)) (5 \"(SB-INT:SIMPLE-EVAL-IN-LEXENV
(SWANK:CREATE-SERVER) #<NULL-LEXENV>)\" (:restartable nil)) (6
\"(SWANK::EVAL-REGION \\\"(swank:create-server) \\\\n\\\")\"
(:restartable nil)) (7 \"((LAMBDA ()))\" (:restartable nil)) (8
\"(SWANK::TRACK-PACKAGE #<CLOSURE (LAMBDA #) {1003A8DBE9}>)\"
(:restartable nil)) (9 \"(SWANK::CALL-WITH-RETRY-RESTART \\\"Retry
SLIME REPL evaluation request.\\\" #<CLOSURE (LAMBDA #) {1003A8D..\"
(:restartable nil)) (10 \"(SWANK::CALL-WITH-BUFFER-SYNTAX NIL
#<CLOSURE (LAMBDA #) {1003A8D9E9}>)\" (:restartable nil)) (11
\"(SWANK::REPL-EVAL \\\"(swank:create-server) \\\\n\\\")\"
(:restartable nil)) (12 \"(SB-INT:SIMPLE-EVAL-IN-LEXENV
(SWANK:LISTENER-EVAL \\\"(swank:create-server) \\\\n\\\")
#<NULL-LEXENV>)\" (:restartable nil)) (13 \"(SWANK::EVAL-FOR-EMACS
(SWANK:LISTENER-EVAL \\\"(swank:create-server) \\\\n\\\")
\\\"COMMON-LISP-USER\\\" 11)\" (:restartable nil)) (14
\"(SWANK::PROCESS-REQUESTS T)\" (:restartable nil)) (15
\"(SB-IMPL::SUB-SUB-SERVE-EVENT 0 200000)\" (:restartable nil)) (16
\"(SB-IMPL::SUB-SERVE-EVENT 0 200000 NIL)\" (:restartable nil)) (17
\"((LAMBDA (SWANK-BACKEND::STREAMS &OPTIONAL SWANK-BACKEND::TIMEOUT))
(#<SB-SYS:FD-STREAM for \\\"a socke..\" (:restartable nil)) (18
\"(SWANK::WAIT-FOR-EVENT/EVENT-LOOP (OR (:EMACS-REX . SWANK::_)
(:SLDB-RETURN 2)) NIL)\" (:restartable nil)) (19
\"(SWANK::WAIT-FOR-EVENT (OR (:EMACS-REX . SWANK::_) (:SLDB-RETURN 2))
NIL)\" (:restartable nil))) (11 5))")

Thanks,

Mirko