Function: cl-delete-if-not

Remove all items not satisfying PREDICATE in SEQ.
This is a destructive function; it reuses the storage of SEQ whenever possible.

Keywords supported: :key :count :start :end :from-end

(fn PREDICATE SEQ [KEYWORD VALUE]...)