anchor.diff:  
   (asdf:defsystem :cxml-dom
       :default-component-class closure-source-file
  -    :pathname (merge-pathnames
  -               "dom/"
  -               (make-pathname :name nil :type nil :defaults *load-truename*))
  +    :pathname #+asdf2 "dom/"
  +              #-asdf2 (merge-pathnames
  +		       "dom/"
  +		       (make-pathname :name nil :type nil :defaults *load-truename*))
       :components
       ((:file "package")
        (:file rune-impl :pathname "dom-impl" :depends-on ("package"))
  
positive.code: 
  (asdf:defsystem :cxml-xml
      :default-component-class closure-source-file
      :pathname (merge-pathnames
                 "xml/"
                 (make-pathname :name nil :type nil :defaults *load-truename*))
      :components
      ((:file "package")
       (:file "util"            :depends-on ("package"))
  
negative.code: 
  (asdf:defsystem :cxml-klacks
      :default-component-class closure-source-file
      :pathname #+asdf2 "klacks/"
                #-asdf2 (merge-pathnames
  		       "klacks/"
  		       (make-pathname :name nil :type nil :defaults *load-truename*))
      :serial t
      :components
      ((:file "package")
  