- (setf (symbol-function (find-symbol "READ-FROM-EMACS" "SWANK"))
- #'(lambda ()
- (loop
- (case (socket-status (cons stream :input) 0
- *event-poll-interval*)
- ((:input :eof) (return (funcall read-from-emacs)))
- (otherwise (main-iterate-all))))))))))
+ (multiple-value-bind (sec usec)
+ (decompose-time *event-polling-interval*)
+ (setf
+ (symbol-function (find-symbol "READ-FROM-EMACS" "SWANK"))
+ #'(lambda ()
+ (loop
+ (case (socket-status (cons stream :input) sec usec)
+ ((:input :eof) (return (funcall read-from-emacs)))
+ (otherwise (main-iterate-all)))))))))))