Changeset 16457


Ignore:
Timestamp:
Jul 9, 2015, 3:48:42 PM (4 years ago)
Author:
rme
Message:

In queue-for-event-process, never funcall the thunk immediately.
Always queue an event so that the execution of the thunk is deferred
until the next iteration of the event loop.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/mac-ui/event-process.lisp

    r16408 r16457  
    1111  "Queue the zero-argument function F for asynchronous execution in
    1212the event process."
    13   (if (eq *current-process* *initial-process*)
    14     (funcall f)
    15     (%interrupt-event-process f nil)))
     13    (%interrupt-event-process f nil))
    1614
    1715(defun call-in-event-process (f)
Note: See TracChangeset for help on using the changeset viewer.