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

Diff of /slime/swank.lisp

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

revision 1.756 by heller, Sun Nov 6 17:05:53 2011 UTC revision 1.757 by heller, Sun Nov 6 17:06:09 2011 UTC
# Line 876  first." Line 876  first."
876    (create-server :port port :style style :dont-close dont-close    (create-server :port port :style style :dont-close dont-close
877                   :coding-system coding-system))                   :coding-system coding-system))
878    
879    ;; FIXME: get rid of coding-system argument
880  (defun accept-connections (socket style coding-system dont-close)  (defun accept-connections (socket style coding-system dont-close)
881    (let* ((ef (find-external-format-or-lose coding-system))    (let* ((ef (find-external-format-or-lose coding-system))
882           (client (unwind-protect           (client (unwind-protect
883                        (accept-connection socket :external-format ef)                        (accept-connection socket :external-format nil
884                                             :buffering t)
885                     (unless dont-close                     (unless dont-close
886                       (close-socket socket)))))                       (close-socket socket)))))
887      (authenticate-client client)      (authenticate-client client)
# Line 1745  NIL if streams are not globally redirect Line 1747  NIL if streams are not globally redirect
1747    
1748    
1749  (defun input-available-p (stream)  (defun input-available-p (stream)
1750    ;; return true iff we can read from STREAM without waiting or if we    (loop
1751    ;; hit EOF     (etypecase (wait-for-input (list stream) t)
1752    (let ((c (read-char-no-hang stream nil :eof)))       (null (return nil))
1753      (cond ((not c) nil)       (cons (return t))
1754            ((eq c :eof) t)       ((member :interrupt)))))
           (t  
            (unread-char c stream)  
            t))))  
1755    
1756  (defvar *slime-features* nil  (defvar *slime-features* nil
1757    "The feature list that has been sent to Emacs.")    "The feature list that has been sent to Emacs.")

Legend:
Removed from v.1.756  
changed lines
  Added in v.1.757

  ViewVC Help
Powered by ViewVC 1.1.5