withQListObject :: [Object a] -> (CInt -> Ptr (Ptr a) -> IO b) -> IO b
withQListObject xs f
  = withArray0 ptrNull (map ptrFromObject xs) $ \carr ->
    f (toCInt (length xs)) carr
withQListObject :: [Object a] -> (CInt -> Ptr (Ptr a) -> IO b) -> IO b
withQListObject xs f
  = withArray0 ptrNull (map ptrFromObject xs) $ \carr ->
    f (toCInt (length xs)) carr
withQListObject xs f
  = withArray0 ptrNull (map ptrFromObject xs) $ \carr ->
    f (toCInt (length xs)) carr