9 lines
138 B
Text
9 lines
138 B
Text
(defvarl a "")
|
|
|
|
(if (equal a "")
|
|
(format t "empty string\n"))
|
|
|
|
(set a "nonempty")
|
|
|
|
(if (zerop (length a))
|
|
(format t "guess what?\n"))
|