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."