/[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.18 by heller, Mon Feb 16 21:40:55 2004 UTC revision 1.19 by heller, Tue Feb 17 21:48:25 2004 UTC
# Line 95  Line 95 
95    
96  (defvar *saved-sigio-handler*)  (defvar *saved-sigio-handler*)
97    
98  #+linux  #+(or)
99  (progn  (progn
100    (defun set-sigio-handler ()    (defun set-sigio-handler ()
101      (setf *saved-sigio-handler*      (setf *saved-sigio-handler*
# Line 115  Line 115 
115        (linux:fcntl3l fd linux:F_SETOWN (getpid))        (linux:fcntl3l fd linux:F_SETOWN (getpid))
116        (linux:fcntl3l fd linux:F_SETFL linux:O_ASYNC)        (linux:fcntl3l fd linux:F_SETFL linux:O_ASYNC)
117        (push (cons fd fn) *sigio-handlers*)))        (push (cons fd fn) *sigio-handlers*)))
   )  
118    
119  (defimplementation remove-input-handlers (socket)  
120    (let ((fd (socket:socket-stream-handle socket)))    (defimplementation remove-input-handlers (socket)
121      (remove-sigio-handler fd)      (let ((fd (socket:socket-stream-handle socket)))
122      (setf *sigio-handlers* (delete fd *sigio-handlers* :key #'car)))        (remove-sigio-handler fd)
123    (close socket))        (setf *sigio-handlers* (delete fd *sigio-handlers* :key #'car)))
124        (close socket))
125      )
126    
127  ;;; Swank functions  ;;; Swank functions
128    

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

  ViewVC Help
Powered by ViewVC 1.1.5