/[cmucl]/src/code/serve-event.lisp
ViewVC logotype

Diff of /src/code/serve-event.lisp

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

revision 1.25 by dtc, Thu Jul 6 05:41:28 2000 UTC revision 1.26 by emarsden, Fri Mar 26 18:22:54 2004 UTC
# Line 200  Line 200 
200  ;;;   Search *descriptor-handlers* for any reference to fd, and nuke 'em.  ;;;   Search *descriptor-handlers* for any reference to fd, and nuke 'em.
201  ;;;  ;;;
202  (defun invalidate-descriptor (fd)  (defun invalidate-descriptor (fd)
203    "Remove any handers refering to fd. This should only be used when attempting    "Remove any handers refering to FD. This should only be used when attempting
204    to recover from a detected inconsistancy."    to recover from a detected inconsistency."
205    (setf *descriptor-handlers*    (setf *descriptor-handlers*
206          (delete fd *descriptor-handlers*          (delete fd *descriptor-handlers*
207                  :key #'handler-descriptor)))                  :key #'handler-descriptor)))
# Line 427  Line 427 
427                   (:output (unix:fd-isset desc write-fds)))                   (:output (unix:fd-isset desc write-fds)))
428             (unwind-protect             (unwind-protect
429                 (progn                 (progn
430                   ;; Doesn't work -- ACK                   (setf (handler-active handler) t)
                  ;(setf (handler-active handler) t)  
431                   (funcall (handler-function handler) desc))                   (funcall (handler-function handler) desc))
432               (setf (handler-active handler) nil))               (setf (handler-active handler) nil))
433             (ecase (handler-direction handler)             (ecase (handler-direction handler)
434               (:input (unix:fd-clr desc read-fds))               (:input (unix:fd-clr desc read-fds))
435               (:output (unix:fd-clr desc write-fds)))               (:output (unix:fd-clr desc write-fds)))
436             (setf result t)))             (setf result t))))
437         result)))      result))
438    
439  ); eval-when (compile eval)  ); eval-when (compile eval)
440    

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

  ViewVC Help
Powered by ViewVC 1.1.5