Function: ENQUEUE

Source

(defun enqueue (item q)
  (setf (car q)
	(setf (rest (car q))
	      (cons item nil))))