+(deftest f.1 (filter #'(lambda (x) (when (oddp x) (* x x)))
+ '(0 1 2 3 4 5 6 7 8 9)) (1 9 25 49 81))
+(deftest an.1 (appendnew '(a b c d) '(c c e f)) (a b c d e f))
+
+
+(deftest pxml.1
+ (xml-tag-contents "tag1" "<tag>Test</tag>")
+ nil nil)
+
+(deftest pxml.1o
+ (kmrcl::xml-tag-contents-old "tag1" "<tag>Test</tag>")
+ nil nil)
+
+;;; MOP Testing
+