Function Front-Of-Queue!

Part of:

package metabang.cl-containers
( front-of-queue! < queue > < new > )