atomic and compound data test

(requires 'dash)

(defun atomicp (x)
  "Determine if X is a data type that contains a single value."
  (not (compoundp x)))

(defun compoundp (x)
  "Determine if X is a data type that contains multiple values."
  (funcall
   (-orfn #'consp #'arrayp #'hash-table-p #'recordp)
   x))