anchor.diff:  
   (test keyword->str-test
     "keyword->str coerces keyword to string"
  -  (is (equal nil (mvn-pd::keyword->str "test" )))
  -  (is (equal "test" (mvn-pd::keyword->str :|test| )))
  -  (is (equal "Test" (mvn-pd::keyword->str :|Test| )))
  -  (is (equal "TEST" (mvn-pd::keyword->str :test )))
  -  (is (equal "TEST" (mvn-pd::keyword->str :Test )))
  -  (is (equal "TEST" (mvn-pd::keyword->str ':|TEST| ))))
  +  (is-equal nil (mvn-pd::keyword->str "test" ))
  +  (is-equal "test" (mvn-pd::keyword->str :|test| ))
  +  (is-equal "Test" (mvn-pd::keyword->str :|Test| ))
  +  (is-equal "TEST" (mvn-pd::keyword->str :test ))
  +  (is-equal "TEST" (mvn-pd::keyword->str :Test ))
  +  (is-equal "TEST" (mvn-pd::keyword->str ':|TEST| )))
   
   (test children-elem?-test
     (is-false (mvn-pd::children-elem? nil ))
  
positive.code: ;; MVN-PD-TEST> (MVN-PD::VALUE '())
  
  (test children-elem-test
    (is (equal nil (mvn-pd::children-elem nil )))
    (is (equal nil (mvn-pd::children-elem :|a| )))
    (is (equal nil (mvn-pd::children-elem '((:|a| :|atr| "a") "text") )))
    (is (equal nil (mvn-pd::children-elem '(:|a| "text") )))
    (is (equal '(:|c|) (mvn-pd::children-elem '((:|a| :|atr| "a") "text" :|c|) )))
    (is (equal '(:|c|) (mvn-pd::children-elem '((:|b| :|atr| "a") :|c|) )))
    (is (equal '((:|c| :|d|) :|e|) (mvn-pd::children-elem '(:|b| (:|c| :|d|) :|e|) ))))
  
  
  ;; setup common data for lxml tests
  
negative.code: (defparameter *module-lxml*
    (s-xml:parse-xml
     (make-string-input-stream
      "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
          <project xmlns=\"http://maven.apache.org/POM/4.0.0\">
      		<modelVersion atr=\"a\" btr=\"b\">4.0.0</modelVersion>
      		<groupId>com.example</groupId>
  