Check that file exists: Difference between revisions
Content added Content deleted
Line 1,691: | Line 1,691: | ||
(print 'exists) |
(print 'exists) |
||
(print 'doesNotExist))) |
(print 'doesNotExist))) |
||
# To verify if it's really a directory, (CAR of return value will be 'T'). |
|||
# Also alternate way to perform above check. |
|||
# abu 2018-05-25 |
|||
(let I (info "./docs") |
|||
(prinl |
|||
(nond |
|||
(I "Does not exist") |
|||
((=T (car I)) "Is not a directory") |
|||
(NIL "Directory exists") ) ) ) |
|||
</lang> |
</lang> |
||