10 lines
138 B
Text
10 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"))
|