Changeset 14173

Timestamp:

10/08/12 20:05:03 (11 years ago)

Author:

Mark Evenson

Message:

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

Restore default as to not be verbose about directory creation.

File:

• trunk/abcl/src/org/armedbear/lisp/ensure-directories-exist.lisp (modified) (1 diff)

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

@@ -34 +34 @@
 (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))