RosettaCodeData/Task/Binary-strings/Common-Lisp/binary-strings-5.lisp

(defun string-empty-p (string)
  (cond
    ((= 0 (length string))t)
    (nil)))