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

Diff of /slime/swank-clisp.lisp

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

revision 1.75 by trittweiler, Fri Sep 12 12:27:38 2008 UTC revision 1.76 by heller, Sun Sep 14 17:10:34 2008 UTC
# Line 104  Line 104 
104                    (lambda (c)                    (lambda (c)
105                      (declare (ignore c))                      (declare (ignore c))
106                      (funcall handler)                      (funcall handler)
107                        (when (find-restart 'socket-status)
108                          (invoke-restart (find-restart 'socket-status)))
109                      (continue))))                      (continue))))
110      (funcall function)))      (funcall function)))
111    
# Line 134  Line 136 
136                          :element-type 'character                          :element-type 'character
137                          :external-format external-format))                          :external-format external-format))
138    
139    (defimplementation wait-for-input (streams &optional timeout)
140      (assert (member timeout '(nil t)))
141      (let ((streams (mapcar (lambda (s) (list* s :input nil)) streams)))
142        (loop
143         (cond (*pending-slime-interrupts* (return :interrupt))
144               (timeout
145                (socket:socket-status streams 0 0)
146                (return (loop for (s _ . x) in streams
147                              if x collect s)))
148               (t
149                (with-simple-restart (socket-status "Return from socket-status.")
150                  (socket:socket-status streams 0 500000))
151                (let ((ready (loop for (s _ . x) in streams
152                                   if x collect s)))
153                  (when ready (return ready))))))))
154    
155  ;;;; Coding systems  ;;;; Coding systems
156    
157  (defvar *external-format-to-coding-system*  (defvar *external-format-to-coding-system*

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

  ViewVC Help
Powered by ViewVC 1.1.5