/[slime]/slime/swank-sbcl.lisp
ViewVC logotype

Diff of /slime/swank-sbcl.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.39 by heller, Wed Dec 10 13:26:08 2003 UTC revision 1.40 by dbarlow, Wed Dec 10 19:02:35 2003 UTC
# Line 103  Line 103 
103  (defvar *use-dedicated-output-stream* t)  (defvar *use-dedicated-output-stream* t)
104    
105  (defun accept-connection (server-socket)  (defun accept-connection (server-socket)
106    "Accept one Swank TCP connection on SOCKET and then close it."    "Accept one Swank TCP connection on SERVER-SOCKET and then close it."
107    (let* ((socket (accept server-socket))    (let* ((socket (accept server-socket))
108           (stream (sb-bsd-sockets:socket-make-stream           (stream (sb-bsd-sockets:socket-make-stream
109                    socket :input t :output t :element-type 'base-char))                    socket :input t :output t :element-type 'base-char))
# Line 132  The request is read from the socket as a Line 132  The request is read from the socket as a
132        (slime-read-error (e)        (slime-read-error (e)
133          (when *swank-debug-p*          (when *swank-debug-p*
134            (format *debug-io* "~&;; Connection to Emacs lost.~%;; [~A]~%" e))            (format *debug-io* "~&;; Connection to Emacs lost.~%;; [~A]~%" e))
135          (close *emacs-io* :abort t)))))          (sb-sys:invalidate-descriptor (sb-impl::fd-stream-fd *emacs-io*))
136            (close *emacs-io* :abort t)
137            (when *use-dedicated-output-stream*
138              (close *slime-output* :abort t))))))
139    
140  ;;; Utilities  ;;; Utilities
141    

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

  ViewVC Help
Powered by ViewVC 1.1.5