[armedbear-cvs] r14173 - trunk/abcl/src/org/armedbear/lisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Mon Oct  8 13:05:03 2012
New Revision: 14173

Log:
Fix CL-TEST::ENSURE-DIRECTORIES-EXIST.8.

Restore default as to not be verbose about directory creation.

Modified:
   trunk/abcl/src/org/armedbear/lisp/ensure-directories-exist.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/ensure-directories-exist.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/ensure-directories-exist.lisp	Mon Oct  8 11:07:00 2012	(r14172)
+++ trunk/abcl/src/org/armedbear/lisp/ensure-directories-exist.lisp	Mon Oct  8 13:05:03 2012	(r14173)
@@ -33,7 +33,7 @@
 
 (in-package "SYSTEM")
 
-(defun ensure-directories-exist (pathspec &key (verbose t)) ;; DEBUG
+(defun ensure-directories-exist (pathspec &key (verbose nil)) 
   (let ((pathname (pathname pathspec))
 	(created-p nil))
 ;;; CLHS: Function ENSURE-DIRECTORIES-EXIST "An error of type