[Cl-darcs-cvs] r104 - cl-darcs/trunk

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Sat Mar 10 16:18:07 2007
New Revision: 104

Modified:
   cl-darcs/trunk/util.lisp
Log:
Use ENSURE-DIRECTORIES-EXIST in MAKE-DIR


Modified: cl-darcs/trunk/util.lisp
==============================================================================
--- cl-darcs/trunk/util.lisp	(original)
+++ cl-darcs/trunk/util.lisp	Sat Mar 10 16:18:07 2007
@@ -238,10 +238,10 @@
 (defun make-dir (pathname)
   "Create directory PATHNAME."
   (with-simple-restart (ignore-error "Ignore ~A directory creation error." pathname)
-    #+clisp (ext:make-dir pathname)
-    #+sbcl  (sb-posix:mkdir pathname #o777)
-    #-(or clisp sbcl)
-    (error "MAKE-DIR not implemented for ~A." (lisp-implementation-type))))
+    (multiple-value-bind (path created) (ensure-directories-exist pathname)
+      (declare (ignore path))
+      (unless created
+	(error "Directory ~A already exists." pathname)))))
 
 (defun delete-dir (pathname)
   "Delete directory PATHNAME."