RosettaCodeData/Task/Empty-string/Emacs-Lisp/empty-string-2.l

(defvar str "" "An empty string")

(if (length= str 0)
    (message "string is empty")
  (message "string is not empty"))