[cxml-cvs] CVS update: cxml/test/xmlconf.lisp - cxml-cvs@common-lisp.net - mailman3.common-lisp.net

26 Nov 2005

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")

    