Function Length-1-List-P

Part of:

package metabang.utilities
( length-1-list-p < x > )
Is x a list of length 1? Note that this is better than the naive (= (length x) 1) because we don't need to traverse the entire list...