(defun string-empty-p (string)
  (zerop (length string)))