Changeset 13551
- Timestamp:
- Mar 24, 2010, 7:34:09 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/objc-bridge/objc-runtime.lisp
r13542 r13551 375 375 nil))) 376 376 377 (defun run-in-cocoa-process-and-wait (f)378 (let* ((process *cocoa-event-process*)379 (success (cons nil nil))380 (done (make-semaphore)))381 (process-interrupt process #'(lambda ()382 (unwind-protect383 (progn384 (setf (car success) (funcall f)))385 (signal-semaphore done))))386 (wait-on-semaphore done)387 (car success)))388 389 390 377 (defun load-cocoa-framework () 391 ( run-in-cocoa-process-and-wait378 (call-in-initial-process 392 379 #'(lambda () 393 380 ;; We need to load and "initialize" the CoreFoundation library
Note: See TracChangeset
for help on using the changeset viewer.