8 lines
215 B
Common Lisp
8 lines
215 B
Common Lisp
|
(let ((queue (make-queue)))
|
||
|
|
(enqueue 38 queue)
|
||
|
|
(assert (not (queue-empty-p queue)))
|
||
|
|
(enqueue 23 queue)
|
||
|
|
(assert (eql 38 (dequeue queue)))
|
||
|
|
(assert (eql 23 (dequeue queue)))
|
||
|
|
(assert (queue-empty-p queue)))
|