diff --git a/clim/input-protocol.lisp b/clim/input-protocol.lisp index 11d488ae76c0375a0551cdae3d0149e1372024fa..859b067cc45b9c34dc358cb9e3fa47b645c356a5 100644 --- a/clim/input-protocol.lisp +++ b/clim/input-protocol.lisp @@ -513,7 +513,6 @@ ;;; However, it does not want to flush any pending action elements that ;;; might precede the character, 'cause LISTEN should have no side effects. (defmethod stream-listen ((stream input-protocol-mixin)) - #-silica (stream-event-handler stream :timeout 0) ;Process pending keyboard input events (let ((input-buffer (stream-input-buffer stream))) (when (queue-empty-p input-buffer) (return-from stream-listen nil)) @@ -608,7 +607,7 @@ (> (get-internal-real-time) end-time)) (setq flag :timeout)) flag)) - #+os-threads (declare (dynamic-extent #'waiter)) + (declare (dynamic-extent #'waiter)) (port-event-wait (port stream) #'waiter :wait-reason "Clim Input" :timeout timeout)