(setf
(gethash "cxml-xml" testnames) "cxml"
(gethash "cxml-dom" testnames) "cxml"
(gethash "cxml-test" testnames) "cxml"
(gethash "cxml-klacks" testnames) "cxml"
(gethash "cl-async-base" testnames) "cl-async"
)