Simple FIFO for Common Lisp
Simple implementation of a queue for Common Lisp.
There is nothing special or difficult going on here. I just find myself using queues a lot and disliked having to recode the same functions over and over again.
To create a new heap, use the
(make-queue &key initial-contents)
Once you have a queue, simply use
queue-pop to enqueue and dequeue items from it.
CL-USER > (make-queue :initial-contents '(1 2 3)) #<QUEUE (1 2 3)> CL-USER > (queue-pop *) 1 CL-USER > (queue-push 'hello **) HELLO CL-USER > (queue-pop ***) 2