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

(setq str "")   ;; empty string literal

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