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|

