(defpackage :objc-runtime.gcd
   (:use :cl :cffi)
   (:export ))
 (in-package :objc-runtime.gcd)
 
 (serapeum:eval-always
   (pushnew #p"/usr/lib/system/"
            cffi:*foreign-library-directories*
            :test 'equal))
 
 (serapeum:eval-always
   (define-foreign-library dispatch
     (:darwin "libdispatch.dylib")))
 
 (defcfun
     (get-global-queue "dispatch_get_global_queue" :library dispatch)
     :pointer
   (id :long)
   (flags :unsigned-long))
 
 (defun get-main-queue ()
   (cffi:foreign-symbol-pointer "_dispatch_main_q"))
 
 (defcfun (dispatch-async "dispatch_async_f" :library dispatch)
     :pointer
   (queue :pointer)
   (context :pointer)
   (block :pointer))
 
 (defmacro def-gcd-callback (name (context-sym) &body body)
   `(progn
      (defcallback ,name :void ((,context-sym :pointer))
        (declare (ignorable ,context-sym))
        ,@body)
      (define-symbol-macro ,name (callback ,name))))