/[mcclim]/mcclim/input.lisp
ViewVC logotype

Diff of /mcclim/input.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by moore, Fri Apr 19 22:27:09 2002 UTC revision 1.10 by brian, Sun Apr 21 12:41:14 2002 UTC
# Line 48  Line 48 
48        (let ((res (event-queue-read-no-hang eq)))        (let ((res (event-queue-read-no-hang eq)))
49          (when res          (when res
50            (return res))            (return res))
51          (process-wait  "Waiting for event"          (if *multiprocessing-p*
52                         (lambda ()              (process-wait  "Waiting for event"
53                           (not (null (event-queue-head eq))))))))                             (lambda ()
54                                 (not (null (event-queue-head eq)))))
55                (process-wait  "Waiting for event"
56                               (lambda ()
57                                 (loop for port in climi::*all-ports*
58                                    ; this is dubious
59                                    do (process-next-event port))
60                                 (not (null (event-queue-head eq)))))))))
61    
62  (defmethod event-queue-append ((eq standard-event-queue) item)  (defmethod event-queue-append ((eq standard-event-queue) item)
63    "Append the item at the end of the queue."    "Append the item at the end of the queue."

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

  ViewVC Help
Powered by ViewVC 1.1.5