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

Diff of /slime/swank-cmucl.lisp

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

revision 1.189 by heller, Fri Aug 22 21:15:19 2008 UTC revision 1.190 by heller, Wed Aug 27 17:53:08 2008 UTC
# Line 169  specific functions.") Line 169  specific functions.")
169      (fcntl fd unix:f-setown (unix:unix-getpid))      (fcntl fd unix:f-setown (unix:unix-getpid))
170      (let ((old-flags (fcntl fd unix:f-getfl 0)))      (let ((old-flags (fcntl fd unix:f-getfl 0)))
171        (fcntl fd unix:f-setfl (logior old-flags unix:fasync)))        (fcntl fd unix:f-setfl (logior old-flags unix:fasync)))
172        (assert (not (assoc fd *sigio-handlers*)))
173      (push (cons fd fn) *sigio-handlers*)))      (push (cons fd fn) *sigio-handlers*)))
174    
175  (defimplementation remove-sigio-handlers (socket)  (defimplementation remove-sigio-handlers (socket)
176    (let ((fd (socket-fd socket)))    (let ((fd (socket-fd socket)))
177      (unless (assoc fd *sigio-handlers*)      (when (assoc fd *sigio-handlers*)
178        (setf *sigio-handlers* (remove fd *sigio-handlers* :key #'car))        (setf *sigio-handlers* (remove fd *sigio-handlers* :key #'car))
179        (let ((old-flags (fcntl fd unix:f-getfl 0)))        (let ((old-flags (fcntl fd unix:f-getfl 0)))
180          (fcntl fd unix:f-setfl (logandc2 old-flags unix:fasync)))          (fcntl fd unix:f-setfl (logandc2 old-flags unix:fasync)))
181        (sys:invalidate-descriptor fd))        (sys:invalidate-descriptor fd))
182      #+(or)      (assert (not (assoc fd *sigio-handlers*)))
183      (when (null *sigio-handlers*)      (when (null *sigio-handlers*)
184        (sys:default-interrupt :sigio))        (sys:default-interrupt :sigio))))
     ))  
185    
186  ;;;;; SERVE-EVENT  ;;;;; SERVE-EVENT
187    

Legend:
Removed from v.1.189  
changed lines
  Added in v.1.190

  ViewVC Help
Powered by ViewVC 1.1.5