anchor.diff:  		   :verbose nil))))
     (let ((asdf-dependency-grovel::*system-base-dir*
   	 (cl-launch:apply-output-pathname-translations base-pathname)))
  -    (asdf:oos 'asdf-dependency-grovel:dependency-op simplified-system))
  +    (asdf:oos 'asdf-dependency-grovel:dependency-op simplified-system)) ;; defconstant error
     (eval
      `(asdf:defsystem :migrated-system
        ,@(with-open-file (s (cl-launch:apply-output-pathname-translations
  
positive.code:   (with-output-to-string (out)
      (format out "#+xcvb~%(module (")
      (when (build-grain-p grain)
        (format out "~@[~%~7,0T:fullname ~S~]" (fullname grain)))
      (dolist (slot '(author maintainer version licence description long-description))
        (when (slot-boundp grain slot)
          (format out "~@[~%~7,0T:~(~A~) ~S~]" slot (slot-value grain slot))))
      (with-slots (load-depends-on compile-depends-on depends-on) grain
        (if (equivalent-deps-p grain)
  
negative.code:                   "~@[~%~7,0T:compile-depends-on (~%~{~15,0T~S~^~%~})~]~
                     ~@[~%~7,0T:load-depends-on (~%~14,7T~{~15,0T~S~^~%~})~]"
                    compile-depends-on load-depends-on)))
      (when (build-grain-p grain)
        (dolist (slot '(build-requires supersedes-asdf))
  	(when (and (slot-boundp grain slot) (slot-value grain slot))
  	  (format out "~@[~%~7,0T:~(~A~) ~S~]" slot (slot-value grain slot)))))
      (format out ")")
      (format out "~@[~%~{~7,0T~S~^~%~}~]" (and (slot-boundp grain 'extension-forms)
  					      (grain-extension-forms grain)))
  