Implement `(flush-purification-queue!)', which tries to purify

Implement `(flush-purification-queue!)', which tries to purify
anything that is in the purification queue.  When this procedure
returns, the queue should be empty.  Call this procedure after the
cold load, and after the "system-loader", to guarantee that the items
loaded are purified before being used.