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

Diff of /mcclim/input.lisp

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

revision 1.38 by dlichteblau, Sun Dec 16 22:41:51 2007 UTC revision 1.39 by dlichteblau, Sun Dec 16 23:20:10 2007 UTC
# Line 97  Line 97 
97               (return res))               (return res))
98             (when wait-function             (when wait-function
99               (warn "event-queue-read-with-timeout ignoring predicate"))               (warn "event-queue-read-with-timeout ignoring predicate"))
100             (condition-wait (event-queue-processes eq) lock timeout))))))             (unless (condition-wait (event-queue-processes eq) lock timeout)
101                 (return)))))))
102    
103  (defmethod event-queue-append ((eq standard-event-queue) item)  (defmethod event-queue-append ((eq standard-event-queue) item)
104    "Append the item at the end of the queue. Does event compression."    "Append the item at the end of the queue. Does event compression."

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

  ViewVC Help
Powered by ViewVC 1.1.5