(queues#list->queue (#(procedure #:clean #:enforce) queues#list->queue (list) (struct queue)))
(queues#make-queue (#(procedure #:pure) queues#make-queue () (struct queue)))
(queues#queue->list (#(procedure #:clean #:enforce) queues#queue->list ((struct queue)) list))
(queues#queue-add! (#(procedure #:clean #:enforce) queues#queue-add! ((struct queue) *) undefined))

(queues#queue-empty? (#(procedure #:clean #:enforce) queues#queue-empty? ((struct queue)) boolean)
	      (((struct queue)) (##core#inline "C_i_nullp" (##sys#slot #(1) '1))))

(queues#queue-first (#(procedure #:clean #:enforce) queues#queue-first ((struct queue)) *))
(queues#queue-last (#(procedure #:clean #:enforce) queues#queue-last ((struct queue)) *))

(queues#queue-length (#(procedure #:clean #:enforce) queues#queue-length ((struct queue)) fixnum)
	      (((struct queue)) (##sys#slot #(1) '3)))

(queues#queue-push-back! (#(procedure #:clean #:enforce) queues#queue-push-back! ((struct queue) *) undefined))
(queues#queue-push-back-list! (#(procedure #:clean #:enforce) queues#queue-push-back-list! ((struct queue) list) undefined))
(queues#queue-remove! (#(procedure #:clean #:enforce) queues#queue-remove! ((struct queue)) *))
(queues#queue? (#(procedure #:pure #:predicate (struct queue)) queues#queue? (*) boolean))