Function: QUEUE-NCONC

Source

(defun queue-nconc (q list)
  (setf (car q)
	(last (setf (rest (car q)) list))))