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

Diff of /slime/swank-ecl.lisp

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

revision 1.75 by jgarcia, Fri Apr 20 21:58:18 2012 UTC revision 1.76 by heller, Tue Jun 19 19:46:53 2012 UTC
# Line 203  Line 203 
203    
204  ) ; #+serve-event (progn ...  ) ; #+serve-event (progn ...
205    
206    #-serve-event
207    (defimplementation wait-for-input (streams &optional timeout)
208      (assert (member timeout '(nil t)))
209      (loop
210       (cond ((check-slime-interrupts) (return :interrupt))
211             (timeout (return (remove-if-not #'listen streams)))
212             (t
213              (let ((ready (remove-if-not #'listen streams)))
214                (if ready (return ready))
215                (sleep 0.1))))))
216    
217    
218  ;;;; Compilation  ;;;; Compilation
219    

Legend:
Removed from v.1.75  
changed lines
  Added in v.1.76

  ViewVC Help
Powered by ViewVC 1.1.5