X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Fsimple-stream-tests.lisp;fp=contrib%2Fsb-simple-streams%2Fsimple-stream-tests.lisp;h=b57d17d2d0ccb70cf2aa231027bb9c37f76c1536;hb=cc9a73604f696b6e69842a95b1e11f40f8cdd7bf;hp=0373f75193515ef88f13ab8d2afe3a5bbed97c67;hpb=303253a69e2cbb7332676afce009616cd684728d;p=sbcl.git

diff --git a/contrib/sb-simple-streams/simple-stream-tests.lisp b/contrib/sb-simple-streams/simple-stream-tests.lisp
index 0373f75..b57d17d 100644
--- a/contrib/sb-simple-streams/simple-stream-tests.lisp
+++ b/contrib/sb-simple-streams/simple-stream-tests.lisp
@@ -14,7 +14,7 @@
                    *load-truename*)
   "Directory for temporary test files.")
 
-(eval-when (:load-toplevel) (ensure-directories-exist *test-path*))
+(eval-when (:load-toplevel) (ensure-directories-exist *test-path* :verbose t))
 
 ;;; Non-destructive functional analog of REMF
 (defun remove-key (key list)