RosettaCodeData/Task/Empty-string/TXR/empty-string-2.txr

@(do (defvar *a* "")
     (if (equal *a* "")
       (format t "empty string\n"))
     (set *a* "nonempty")
     (if (zerop (length *a*))
       (format t "guess what?\n")))