[slime-devel] (re)connecting to swank server
Andras Simon
andras at renyi.hu
Mon Apr 9 21:14:18 UTC 2007
My troubles were caused by a function on slime-connected-hook that called
slime-inferior-process.
Sorry for the noise.
Andras
On Mon, 9 Apr 2007, Andras Simon wrote:
>
> 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
>
> _______________________________________________
> slime-devel site list
> slime-devel at common-lisp.net
> http://common-lisp.net/mailman/listinfo/slime-devel
>
More information about the slime-devel
mailing list