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

10 lines
138 B
Plaintext

(defvarl a "")
(if (equal a "")
(format t "empty string\n"))
(set a "nonempty")
(if (zerop (length a))
(format t "guess what?\n"))