o translate-uri-equals: should work on all CL implementations, not just the Allegro CL because 'puri' is used for compatibility.

o translate-uri-equals: should work on all CL implementations, not just the Allegro CL because 'puri' is used for compatibility.

Index: test/domtest.lisp =================================================================== RCS file: /project/cxml/cvsroot/cxml/test/domtest.lisp,v retrieving revision 1.17 diff -u -r1.17 domtest.lisp --- test/domtest.lisp 20 Aug 2006 11:48:58 -0000 1.17 +++ test/domtest.lisp 13 Jun 2007 08:15:04 -0000 @@ -274,13 +274,6 @@ (with-attributes (|type|) element `(equal ,|type| "text/xml")))

-#-allegro -(defun translate-uri-equals (element) - (declare (ignore element)) - (warn "oops, assert-uri-equals needs Franz' URI package") - (throw 'give-up nil)) - -#+allegro (defun translate-uri-equals (element) (with-attributes (|actual|