/[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.291 by heller, Sun Nov 6 17:05:41 2011 UTC revision 1.292 by heller, Sun Nov 6 17:06:09 2011 UTC
# Line 194  Line 194 
194    
195  #-win32  #-win32
196  (defun input-ready-p (stream)  (defun input-ready-p (stream)
197    (let ((c (read-char-no-hang stream nil :eof)))    (sb-sys:wait-until-fd-usable (sb-impl::fd-stream-fd stream)
198      (etypecase c                                 :input
199        (character (unread-char c stream) t)                                 0))
       (null nil)  
       ((member :eof) t))))  
200    
201  #+win32  #+win32
202  (progn  (progn

Legend:
Removed from v.1.291  
changed lines
  Added in v.1.292

  ViewVC Help
Powered by ViewVC 1.1.5