Maybe-flush-and-compress1
Compress a one-dimensional array only if necessary
The call (maybe-flush-and-compress1 name ar) is equivalent to
the first calling (flush-compress name) and then (compress1 name
ar), except that both operations are skipped (and ar is returned) if
ar, which has name name, is already compressed.
