10 lines
328 B
Common Lisp
10 lines
328 B
Common Lisp
|
(defparameter testnames (make-hash-table :test 'equal))
|
||
|
|
(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"
|
||
|
|
(gethash "cl-async-util" testnames) "cl-async"
|
||
|
|
)
|