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

[David Lichteblau]

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

Modified Files:
	domtest.lisp 
Log Message:
sb-unicode backport
namespace-korrekturen
noch documentation

Date: Tue Dec 27 21:01:17 2005
Author: dlichteblau

Index: cxml/test/domtest.lisp
diff -u cxml/test/domtest.lisp:1.14 cxml/test/domtest.lisp:1.15
--- cxml/test/domtest.lisp:1.14	Tue Dec 27 02:35:16 2005
+++ cxml/test/domtest.lisp	Tue Dec 27 21:01:17 2005
@@ -151,7 +151,7 @@
 		    (#/n (vector-push-extend #/newline v (length v)))
 		    ((#/\\ #/\") (vector-push-extend #/\\ v (length v)))))
                 (vector-push-extend c v (length v))))
-        (coerce v 'runes::simple-rod)))
+        (make-array (length v) :element-type 'runes:rune :initial-contents v)))
     (t
       (%intern str))))
 
@@ -680,7 +680,7 @@
 			      (dom:get-attribute member "href"))))
 		   (unless (or (runes:rod= (dom:tag-name member) #"metadata")
 			       (member href *bad-tests* :test 'equal))
-		     (format t "~&~D/~D ~A~%" i n href)
+		     (format t "~&~D/~D ~A~%" i #+nil n 808 href)
 		     (let ((lisp (slurp-test
 				  (merge-pathnames href test-directory))))
 		       (when verbose