X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fserve-event.lisp;h=7b1b4e99bbf18395d11e536ca13cae5f63800260;hb=6daed982c84c6679df360561d48e8817bf6ed583;hp=f0c6961551e132900e5fae9d73e922ac9092808a;hpb=5e3fb5149366dd84a5cb76bf1cf5f2324c24ca57;p=sbcl.git diff --git a/src/code/serve-event.lisp b/src/code/serve-event.lisp index f0c6961..7b1b4e9 100644 --- a/src/code/serve-event.lisp +++ b/src/code/serve-event.lisp @@ -70,7 +70,7 @@ (def!method print-object ((handler handler) stream) (print-unreadable-object (handler stream :type t) (format stream - "~A on ~:[~;BOGUS ~]descriptor ~D: ~S" + "~A on ~:[~;BOGUS ~]descriptor ~W: ~S" (handler-direction handler) (handler-bogus handler) (handler-descriptor handler) @@ -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) @@ -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)