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>