/[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.301 by heller, Fri Jan 6 09:02:43 2012 UTC revision 1.302 by heller, Tue Mar 6 21:42:10 2012 UTC
# Line 195  Line 195 
195          (return nil))          (return nil))
196        (sleep 0.1))))        (sleep 0.1))))
197    
198    (defun fd-stream-input-buffer-empty-p (stream)
199      (let ((buffer (sb-impl::fd-stream-ibuf stream)))
200        (or (not buffer)
201            (= (sb-impl::buffer-head buffer)
202               (sb-impl::buffer-tail buffer)))))
203    
204  #-win32  #-win32
205  (defun input-ready-p (stream)  (defun input-ready-p (stream)
206    (or (let ((buffer (sb-impl::fd-stream-ibuf stream)))    (or (not (fd-stream-input-buffer-empty-p stream))
         (when buffer  
           (< (sb-impl::buffer-head buffer)  
              (sb-impl::buffer-tail buffer))))  
207        #+#.(swank-backend:with-symbol 'fd-stream-fd-type 'sb-impl)        #+#.(swank-backend:with-symbol 'fd-stream-fd-type 'sb-impl)
208        (eq :regular (sb-impl::fd-stream-fd-type stream))        (eq :regular (sb-impl::fd-stream-fd-type stream))
209        (not (sb-impl::sysread-may-block-p stream))))        (not (sb-impl::sysread-may-block-p stream))))

Legend:
Removed from v.1.301  
changed lines
  Added in v.1.302

  ViewVC Help
Powered by ViewVC 1.1.5