Function Delete-If!

Part of:

package metabang.utilities
( delete-if! < predicate > < sequence > )
Just like `delete-if' except that it returns two values: a list of the
deleted items, and the new sequence.