output verkuerzt

2005-11-26 22:58:51 +00:00
parent 809d570882
commit f957d3e11c
2 changed files with 1787 additions and 1787 deletions
--- a/3572
+++ b/3572
--- a/test/xmlconf.lisp
+++ b/test/xmlconf.lisp
@ -98,7 +98,7 @@
            (incf ntried)
            (multiple-value-bind (pathname output)
                (test-pathnames directory test)
-              (princ pathname)
+              (princ (enough-namestring pathname directory))
              (unless (probe-file pathname)
                (error "file not found: ~A" pathname))
              (with-simple-restart (skip-test "Skip this test")