X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fpathnames.impure.lisp;h=b9a416e3f25880919b0e5225230f30ea3a33f355;hb=669eaea6857ab6211bfd6c00c7d227f3263200b9;hp=b00b1f9a8cec4964f5eb257930ca049d174a86ef;hpb=d1287b8413141509ca384971f615dde98979583e;p=sbcl.git

diff --git a/tests/pathnames.impure.lisp b/tests/pathnames.impure.lisp
index b00b1f9..b9a416e 100644
--- a/tests/pathnames.impure.lisp
+++ b/tests/pathnames.impure.lisp
@@ -309,6 +309,7 @@
 		  (parse-namestring "SCRATCH:FOO.TXT.NEWEST")
 		  (parse-namestring "SCRATCH:FOO.TXT"))))
   (dolist (p pathnames)
+    (print p)
     (handler-case
 	(let ((*print-readably* t))
 	  (assert (equal (read-from-string (format nil "~S" p)) p)))