Function Length=1

Part of:

package cl-perec
( length=1 < list > )
Returns t if the length of the LIST is 1. (Faster than (= (length list) 1))