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