[armedbear-devel] patch for ensure-directories-exist

[Alan Ruttenberg]

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)
   ....
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/armedbear-devel/attachments/20100118/222b245d/attachment.html>