3 lines
151 B
Common Lisp
3 lines
151 B
Common Lisp
(defun empty-directory-p (path)
|
|
(and (null (directory (concatenate 'string path "/*")))
|
|
(null (directory (concatenate 'string path "/*/")))))
|