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