18 Jan
2010
18 Jan
'10
6:12 p.m.
ensure-directories-exist fails when passed a logical pathname.
(defun ensure-directories-exist (pathspec &key verbose) - (let ((pathname (pathname pathspec)) + (let ((pathname (translate-logical-pathname (pathname pathspec))) (created-p nil)) (when (wild-pathname-p pathname) ....