(defun string-empty-p (string)
  (cond
    ((= 0 (length string))t)
    (nil)))