[cxml-cvs] CVS update: cxml/test/xmlconf.lisp

[David Lichteblau]

Update of /project/cxml/cvsroot/cxml/test
In directory common-lisp.net:/tmp/cvs-serv18732/test

Modified Files:
	xmlconf.lisp 
Log Message:
output verkuerzt

Date: Sat Nov 26 23:58:55 2005
Author: dlichteblau

Index: cxml/test/xmlconf.lisp
diff -u cxml/test/xmlconf.lisp:1.3 cxml/test/xmlconf.lisp:1.4
--- cxml/test/xmlconf.lisp:1.3	Sat Nov 26 23:55:23 2005
+++ cxml/test/xmlconf.lisp	Sat Nov 26 23:58:55 2005
@@ -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")