Skip to content
Snippets Groups Projects
Commit 1fef4896 authored by dan's avatar dan
Browse files

update version number for release. whitespace

darcs-hash:20030529221510-2591e-0075f9f42825d570ca04ba45dcbd85982398942e.gz
parent b38ac1c9
No related branches found
No related tags found
No related merge requests found
......@@ -27,7 +27,7 @@
(defsystem CLX
:depends-on (sb-bsd-sockets)
:version "0.4.1"
:version "0.5"
:serial t
:components
((:file "package")
......
......@@ -406,11 +406,11 @@
(display-input-in-progress display) nil token)))
(null (buffer-listen display))))
(go force-output))
;; Ensure that only one process is reading input.
(unless (or (eq (display-input-in-progress display) token)
(conditional-store (display-input-in-progress display) nil token))
(if (eql timeout 0)
(return-from read-input :timeout)
;; Ensure that only one process is reading input.
(unless (or (eq (display-input-in-progress display) token)
(conditional-store (display-input-in-progress display) nil token))
(if (eql timeout 0)
(return-from read-input :timeout)
(apply #'process-block "CLX Input Lock"
#'(lambda (display predicate &rest predicate-args)
(declare (type display display)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment