[slime-devel] Bad file descriptor error with find definition

[Tom Weissmann]

Hello,

I'm having problems with the find definition functionality of Slime with Allegro
8.0 - whenever I load a different image to the default Allegro one.

I put a simple definition in a local file, y:/home/foo.lisp:

(defun foo() "foo!")

I start up Slime and connect to Allegro, do (load "y:/home/foo.lisp") from the
lisp prompt in emacs, M-. foo, and my foo.lisp immediately opens.

On the other hand, if I load one of the image of the product I was hoping to use
Slime to develop, load foo.lisp and do M-. foo, I get the error below.

Could anyone help me get to the bottom of this?
Many thanks,
Tom Weissmann

...

writing buffer for
#<multivalent #1=stream socket #1#connected from #2=localhost/9666 to
  #2#/1113 @ #x20d514ba>
resulted in error (code 9): Bad file descriptor.
   [Condition of type errno-stream-error]
Backtrace:
  0: (swank:swank-debugger-hook #<errno-stream-error @ #x24b3bf42>
       #<Function SWANK-DEBUGGER-HOOK>)
  1: (error errno-stream-error :stream
            #<multivalent #1=stream socket #1#connected from
              #2=localhost/9666 to #2#/1113 @ #x20d514ba>
            :action "writing buffer for" :code 9 :string
            "Bad file descriptor")
  2: ((method initialize-instance :after (excl.scm::get-buffer-status))
      #1=#<excl.scm::get-buffer-status @ #x24b368ba> . #1#)
  3: ((:internal (:effective-method 1 t nil nil nil) 0)
      #<excl.scm::get-buffer-status @ #x24b368ba>
      . #<non-lisp object @ #xf>)
  4: ((method make-instance (class))
      #<standard-class excl.scm::get-buffer-status> :allow-other-keys t
      :pathname #1=#P"y:\\home\\foo.lisp" :write-if-modified t :pathname
      #1# ...)
  5: ((method make-instance (symbol)) excl.scm::get-buffer-status
      :allow-other-keys t :pathname #1=#P"y:\\home\\foo.lisp"
      :write-if-modified t :pathname #1# ...)
  6: (excl.scm::get-buffer-status :pathname #P"y:\\home\\foo.lisp"
       :write-if-modified t)
  7: (excl.scm:section-file :file #P"y:\\home\\foo.lisp")
  8: (swank-backend::find-definition-in-file foo :operator
       #P"y:\\home\\foo.lisp" (nil nil))