Changeset 612

Timestamp:

Mar 3, 2004, 2:00:56 PM (21 years ago)

Author:

Gary Byers

Message:

Wait until initial thread does CLOSE during listener thread cleanup.

File:

• trunk/ccl/examples/cocoa-listener.lisp (modified) (1 diff)

trunk/ccl/examples/cocoa-listener.lisp

@@ -48 +48 @@
                  :perform-selector-on-main-thread (@selector "close")
                  :with-object (%null-ptr)
-                 :wait-until-done nil))))
+                 :wait-until-done t))))
    #'(lambda ()
        (setq *listener-autorelease-pool* (create-autorelease-pool))