(in-package #:ocl)

(defun create-command-queue (context device properties)
  (check-error-arg  (%create-command-queue context device properties)))