Function Choose-Item-From-Pup-No-Singletons

Part of:

package metabang.utilities
( choose-item-from-pup-no-singletons < the-list-or-atom > &rest < args > &key &allow-other-keys )
Like choose-item-from-pup, but just returns the datum if it
is an atom or a singleton list.