X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fserve-event.lisp;h=1183d6ccf5990177d0c6d1a3c116a8fa5362c022;hb=98a76d4426660876dec6649b1e228d2e5b47f579;hp=c4d856d415a378e91a8b52b1a94aceed49099c11;hpb=1bfc464c657a8f4ad24ef612f76a38d8f6f1bbad;p=sbcl.git

diff --git a/src/code/serve-event.lisp b/src/code/serve-event.lisp
index c4d856d..1183d6c 100644
--- a/src/code/serve-event.lisp
+++ b/src/code/serve-event.lisp
@@ -185,9 +185,9 @@
 		      (values sec usec))))
 	      (values 0 0))
 	(declare (type (unsigned-byte 31) stop-sec stop-usec))
-	(with-fd-handler (fd direction #'(lambda (fd)
-					   (declare (ignore fd))
-					   (setf usable t)))
+	(with-fd-handler (fd direction (lambda (fd)
+					 (declare (ignore fd))
+					 (setf usable t)))
 	  (loop
 	    (sub-serve-event to-sec to-usec)
 
@@ -279,11 +279,9 @@
 
 ;;; When a *periodic-polling-function* is defined the server will not
 ;;; block for more than the maximum event timeout and will call the
-;;; polling function if it does time out. One important use of this
-;;; is to periodically call process-yield.
+;;; polling function if it does time out.
 (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)