(partsum-elt-p x) recognizes lists where every element satisfies partsum-comp-p.
(partsum-elt-p x) → *
This is an ordinary deflist. It is "strict" in that it requires x to be a "properly" nil-terminated list.