(in-package #:ocl)

(defun flush (command-queue)
  (check-error (%flush command-queue)))

(defun finish (command-queue)
  (check-error (%finish command-queue)))