Function: MAKE-QUEUE

Source

(defun make-queue ()
  (let ((q (cons nil nil)))
    (setf (car q) q)))