/[cmucl]/src/code/filesys.lisp
ViewVC logotype

Diff of /src/code/filesys.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.43 by dtc, Fri May 16 17:03:56 1997 UTC revision 1.44 by pw, Fri Jan 30 17:11:09 1998 UTC
# Line 1172  Line 1172 
1172  ;;; Ensure-Directories-Exist  --  Public  ;;; Ensure-Directories-Exist  --  Public
1173  ;;;  ;;;
1174  (defun ensure-directories-exist (pathspec &key verbose (mode #o777))  (defun ensure-directories-exist (pathspec &key verbose (mode #o777))
1175      "Tests whether the directories containing the specified file
1176      actually exist, and attempts to create them if they do not.
1177      Portable programs should avoid using the :MODE keyword argument."
1178    (let* ((pathname (pathname pathspec))    (let* ((pathname (pathname pathspec))
1179           (pathname (if (logical-pathname-p pathname)           (pathname (if (logical-pathname-p pathname)
1180                         (translate-logical-pathname pathname)                         (translate-logical-pathname pathname)

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

  ViewVC Help
Powered by ViewVC 1.1.5