Changeset 612


Ignore:
Timestamp:
Mar 3, 2004, 10:00:56 PM (16 years ago)
Author:
gb
Message:

Wait until initial thread does CLOSE during listener thread cleanup.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/examples/cocoa-listener.lisp

    r597 r612  
    4848                 :perform-selector-on-main-thread (@selector "close")
    4949                 :with-object (%null-ptr)
    50                  :wait-until-done nil))))
     50                 :wait-until-done t))))
    5151   #'(lambda ()
    5252       (setq *listener-autorelease-pool* (create-autorelease-pool))
Note: See TracChangeset for help on using the changeset viewer.