[slime-devel] (re)connecting to swank server

[Andras Simon]

Connecting to a swank server opened with

(swank:create-server :port 4005 :dont-close t)

I get the following:

Debugger entered--Lisp error: (wrong-type-argument processp nil)
  set-process-filter(nil (lambda (process string) (slime-write-string
  string)))
  (lambda (&rest args) (set-process-filter (slime-inferior-process) (lambda
  ... ...)))()
  run-hooks(slime-connected-hook)
  (let ((args ...)) (when-let (name ...) (unless ... ...))
  (slime-hide-inferior-lisp-buffer) (slime-init-output-buffer connection)
  (run-hooks (quote slime-connected-hook)) (when-let (fun ...) (funcall fun)))
  (let ((slime-dispatching-connection connection)) (destructuring-bind (&key
  pid style lisp-implementation machine features package version
  &allow-other-keys) info (or ... ... ... ...) (setf ... pid ... style
  ... features) (destructuring-bind ... package ...) (destructuring-bind
  ... lisp-implementation ...) (destructuring-bind ... machine ...)) (setq
  slime-state-name "") (let (...) (when-let ... ...)
  (slime-hide-inferior-lisp-buffer) (slime-init-output-buffer connection)
  (run-hooks ...) (when-let ... ...)) (message "Connected. %s"
  (slime-random-words-of-encouragement)))
  slime-set-connection-info(#<process SLIME Lisp> (:pid 6231 :style :spawn
  :lisp-implementation (:type "SBCL" :name "sbcl" :version "1.0.1.24")
  :machine (:instance "omnibus" :type "X86-64" :version "Dual Core AMD
  Opteron(tm) Processor 265") :features (:asdf :sb-thread :ansi-cl
  :common-lisp :sbcl :unix :sb-doc :sb-test :sb-ldb :sb-package-locks
  :sb-unicode :sb-eval :sb-source-locations :ieee-floating-point :x86-64 :elf
  :linux :gencgc :stack-grows-downward-not-upward :c-stack-is-control-stack
  :linkage-table :stack-allocatable-closures :alien-callbacks
  :os-provides-dlopen :os-provides-dladdr :os-provides-putwc) :package (:name
  "COMMON-LISP-USER" :prompt "CL-USER") :version "2007-04-09"))
  (lambda (G81915 info) (slime-set-connection-info (symbol-value G81915)
  info))(--proc-- (:pid 6231 :style :spawn :lisp-implementation (:type "SBCL"
  :name "sbcl" :version "1.0.1.24") :machine (:instance "omnibus" :type
  "X86-64" :version "Dual Core AMD Opteron(tm) Processor 265") :features
  (:asdf :sb-thread :ansi-cl :common-lisp :sbcl :unix :sb-doc :sb-test :sb-ldb
  :sb-package-locks :sb-unicode :sb-eval :sb-source-locations
  :ieee-floating-point :x86-64 :elf :linux :gencgc
  :stack-grows-downward-not-upward :c-stack-is-control-stack :linkage-table
  :stack-allocatable-closures :alien-callbacks :os-provides-dlopen
  :os-provides-dladdr :os-provides-putwc) :package (:name "COMMON-LISP-USER"
  :prompt "CL-USER") :version "2007-04-09"))
  apply((lambda (G81915 info) (slime-set-connection-info (symbol-value G81915)
  info)) --proc-- (:pid 6231 :style :spawn :lisp-implementation (:type "SBCL"
  :name "sbcl" :version "1.0.1.24") :machine (:instance "omnibus" :type
  "X86-64" :version "Dual Core AMD Opteron(tm) Processor 265") :features
  (:asdf :sb-thread :ansi-cl :common-lisp :sbcl :unix :sb-doc :sb-test :sb-ldb
  :sb-package-locks :sb-unicode :sb-eval :sb-source-locations
  :ieee-floating-point :x86-64 :elf :linux :gencgc
  :stack-grows-downward-not-upward :c-stack-is-control-stack :linkage-table
  :stack-allocatable-closures :alien-callbacks :os-provides-dlopen
  :os-provides-dladdr :os-provides-putwc) :package (:name "COMMON-LISP-USER"
  :prompt "CL-USER") :version "2007-04-09"))
  (lambda (&rest --cl-rest--) (apply (lambda ... ...) (quote --proc--)
  --cl-rest--))((:pid 6231 :style :spawn :lisp-implementation (:type "SBCL"
  :name "sbcl" :version "1.0.1.24") :machine (:instance "omnibus" :type
  "X86-64" :version "Dual Core AMD Opteron(tm) Processor 265") :features
  (:asdf :sb-thread :ansi-cl :common-lisp :sbcl :unix :sb-doc :sb-test :sb-ldb
  :sb-package-locks :sb-unicode :sb-eval :sb-source-locations
  :ieee-floating-point :x86-64 :elf :linux :gencgc
  :stack-grows-downward-not-upward :c-stack-is-control-stack :linkage-table
  :stack-allocatable-closures :alien-callbacks :os-provides-dlopen
  :os-provides-dladdr :os-provides-putwc) :package (:name "COMMON-LISP-USER"
  :prompt "CL-USER") :version "2007-04-09"))
  funcall((lambda (&rest --cl-rest--) (apply (lambda ... ...) (quote --proc--)
  --cl-rest--)) (:pid 6231 :style :spawn :lisp-implementation (:type "SBCL"
  :name "sbcl" :version "1.0.1.24") :machine (:instance "omnibus" :type
  "X86-64" :version "Dual Core AMD Opteron(tm) Processor 265") :features
  (:asdf :sb-thread :ansi-cl :common-lisp :sbcl :unix :sb-doc :sb-test :sb-ldb
  :sb-package-locks :sb-unicode :sb-eval :sb-source-locations
  :ieee-floating-point :x86-64 :elf :linux :gencgc
  :stack-grows-downward-not-upward :c-stack-is-control-stack :linkage-table
  :stack-allocatable-closures :alien-callbacks :os-provides-dlopen
  :os-provides-dladdr :os-provides-putwc) :package (:name "COMMON-LISP-USER"
  :prompt "CL-USER") :version "2007-04-09"))
  (if (symbol-value G81920) (funcall (symbol-value G81920) result))
  (let* ((--cl-rest-- rand-81918) (result ...)) (if (symbol-value G81920)
  (funcall ... result)))
  (cond ((eql op-81917 ...) (let* ... ...)) ((eql op-81917 ...) (let*
  ... ... ...)) (t (error "Elisp destructure-case failed: %S" tmp-81919)))
  (let* ((tmp-81919 G81916) (op-81917 ...) (rand-81918 ...)) (cond (... ...)
  (... ...) (t ...)))
  (lambda (G81920 G81916) (let* (... ... ...) (cond ... ... ...)))(--cont--
  (:ok (:pid 6231 :style :spawn :lisp-implementation (:type "SBCL" :name
  "sbcl" :version "1.0.1.24") :machine (:instance "omnibus" :type "X86-64"
  :version "Dual Core AMD Opteron(tm) Processor 265") :features (:asdf
  :sb-thread :ansi-cl :common-lisp :sbcl :unix :sb-doc :sb-test :sb-ldb
  :sb-package-locks :sb-unicode :sb-eval :sb-source-locations
  :ieee-floating-point :x86-64 :elf :linux :gencgc
  :stack-grows-downward-not-upward :c-stack-is-control-stack :linkage-table
  :stack-allocatable-closures :alien-callbacks :os-provides-dlopen
  :os-provides-dladdr :os-provides-putwc) :package (:name "COMMON-LISP-USER"
  :prompt "CL-USER") :version "2007-04-09")))
  apply((lambda (G81920 G81916) (let* (... ... ...) (cond ... ... ...)))
  --cont-- (:ok (:pid 6231 :style :spawn :lisp-implementation (:type "SBCL"
  :name "sbcl" :version "1.0.1.24") :machine (:instance "omnibus" :type
  "X86-64" :version "Dual Core AMD Opteron(tm) Processor 265") :features
  (:asdf :sb-thread :ansi-cl :common-lisp :sbcl :unix :sb-doc :sb-test :sb-ldb
  :sb-package-locks :sb-unicode :sb-eval :sb-source-locations
  :ieee-floating-point :x86-64 :elf :linux :gencgc
  :stack-grows-downward-not-upward :c-stack-is-control-stack :linkage-table
  :stack-allocatable-closures :alien-callbacks :os-provides-dlopen
  :os-provides-dladdr :os-provides-putwc) :package (:name "COMMON-LISP-USER"
  :prompt "CL-USER") :version "2007-04-09")))
  (lambda (&rest --cl-rest--) (apply (lambda ... ...) (quote --cont--)
  --cl-rest--))((:ok (:pid 6231 :style :spawn :lisp-implementation (:type
  "SBCL" :name "sbcl" :version "1.0.1.24") :machine (:instance "omnibus" :type
  "X86-64" :version "Dual Core AMD Opteron(tm) Processor 265") :features
  (:asdf :sb-thread :ansi-cl :common-lisp :sbcl :unix :sb-doc :sb-test :sb-ldb
  :sb-package-locks :sb-unicode :sb-eval :sb-source-locations
  :ieee-floating-point :x86-64 :elf :linux :gencgc
  :stack-grows-downward-not-upward :c-stack-is-control-stack :linkage-table
  :stack-allocatable-closures :alien-callbacks :os-provides-dlopen
  :os-provides-dladdr :os-provides-putwc) :package (:name "COMMON-LISP-USER"
  :prompt "CL-USER") :version "2007-04-09")))
  slime-dispatch-event((:return (:ok (:pid 6231 :style :spawn
  :lisp-implementation ... :machine ... :features ... :package ... :version
  "2007-04-09")) 1) #<process SLIME Lisp>)
  slime-process-available-input(#<process SLIME Lisp>)
  slime-net-filter(#<process SLIME Lisp> "in-addr\" . 2) (\"with-vector-sap\"
  . 1) (\"with-sockaddr-for\" . 1) (\"with-alien-termios\" . 2)
  (\"with-alien-passwd\" . 2) (\"define-designator\" . 2)
  (\"with-alien-utimbuf\" . 2) (\"with-alien-stat\" . 2)
  (\"define-entry-point\" . 2) (\"with-dirent\" . 2) (\"with-alien-timeval\"
  . 2) (\"with-buffer-syntax\" . 1) (\"with-describe-settings\" . 1)
  (\"with-connection\" . 1) (\"defslimefun\" . 2) (\"do-symbols*\" . 1)
  (\"without-interrupts\" . 0) (\"with-reader-error-handler\" . 1)
  (\"with-temp-package\" . 1) (\"with-bindings\" . 1) (\"with-io-redirection\"
  . 1)))000294(:return (:ok (:pid 6231 :style :spawn :lisp-implementation
  (:type \"SBCL\" :name \"sbcl\" :version \"1.0.1.24\") :machine (:instance
  \"omnibus\" :type \"X86-64\" :version \"Dual Core AMD Opteron(tm) Processor
  265\") :features (:asdf :sb-thread :ansi-cl :common-lisp :sbcl :unix :sb-doc
  :sb-test :sb-ldb :sb-package-locks :sb-unicode :sb-eval :sb-source-locations
  :ieee-floating-point :x86-64 :elf :linux :gencgc
  :stack-grows-downward-not-upward :c-stack-is-control-stack :linkage-table
  :stack-allocatable-closures :alien-callbacks :os-provides-dlopen
  :os-provides-dladdr :os-provides-putwc) :package (:name \"COMMON-LISP-USER\"
  :prompt \"CL-USER\") :version \"2007-04-09\")) 1)")

But I also get a working *slime-repl*.

However, after slime-disconnect, slime-connect gives

error in process filter: Wrong type argument: processp, nil

and I can only reconnect from a fresh emacs. After an unsuccessful connect,
*slime-events* looks just like it does after a connection is established.

Is slime-disconnect the correct way of disconnecting?

GNU Emacs 22.0.50.1, slime is cvs head, the lisps I tried this with are
sbcl 1.0.1.24 and LWL Personal 5.0.1.

Andras