(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"
  )