Function Compact-Array

Part of:

package metabang.utilities
( compact-array < array > )
Destructively compacts an array with fill-pointer. Works on type T
arrays and considers elements with Nil in them to be empty.