X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fserve-event.lisp;h=7b1b4e99bbf18395d11e536ca13cae5f63800260;hb=6daed982c84c6679df360561d48e8817bf6ed583;hp=a6cb763e0ab74ecfb0109996d450be2fcb3727b9;hpb=e0814eee6f6dea52db010b45a330100f2fe65832;p=sbcl.git

diff --git a/src/code/serve-event.lisp b/src/code/serve-event.lisp
index a6cb763..7b1b4e9 100644
--- a/src/code/serve-event.lisp
+++ b/src/code/serve-event.lisp
@@ -282,8 +282,7 @@
 ;;; polling function if it does time out. One important use of this
 ;;; is to periodically call process-yield.
 (declaim (type (or null function) *periodic-polling-function*))
-(defvar *periodic-polling-function*
-  #!-mp nil #!+mp #'sb!mp:process-yield)
+(defvar *periodic-polling-function* nil)
 (declaim (type (unsigned-byte 29) *max-event-to-sec* *max-event-to-usec*))
 (defvar *max-event-to-sec* 1)
 (defvar *max-event-to-usec* 0)