/[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.27 by emarsden, Thu Apr 8 14:00:03 2004 UTC revision 1.28 by rtoy, Thu Jun 11 16:03:59 2009 UTC
# Line 387  Line 387 
387    
388    
389  ;;; These macros are chunks of code from SUB-SERVE-EVENT.  They randomly  ;;; These macros are chunks of code from SUB-SERVE-EVENT.  They randomly
390  ;;; reference the READ-FDS and WRITE-FDS Alien variables (which wold be consed  ;;; reference the READ-FDS and WRITE-FDS Alien variables (which would be consed
391  ;;; if passed as function arguments.)  ;;; if passed as function arguments.)
392  ;;;  ;;;
393  (eval-when (compile eval)  (eval-when (compile eval)
# Line 446  Line 446 
446    
447  ;;; When a *periodic-polling-function* is defined the server will not  ;;; When a *periodic-polling-function* is defined the server will not
448  ;;; block for more than the maximum event timeout and will call the  ;;; block for more than the maximum event timeout and will call the
449  ;;; polling function if it does times out. One important use of this  ;;; polling function if it does time out. One important use of this
450  ;;; is to periodically call process-yield.  ;;; is to periodically call process-yield.
451  ;;;  ;;;
452  (declaim (type (or null function) *periodic-polling-function*))  (declaim (type (or null function) *periodic-polling-function*))

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

  ViewVC Help
Powered by ViewVC 1.1.5