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:        (loop
           :for comp-dep :in (slot-value module 'compile-depends-on)
           :for load-dep :in (slot-value module 'load-depends-on)
           :always (and (consp comp-dep)
                        (eql (first comp-dep) :compile)
                        (null (rest (rest comp-dep)))
                        (if (consp load-dep)
                          (and (eql (first load-dep) :load)
                               (null (rest (rest load-dep)))
                               (equal (second load-dep) (second comp-dep)))
                          (equal load-dep (second comp-dep)))))))
  
  (defun module-string (grain)
    "Returns a string representation of a module object that can be put at the
  
negative.code:   (with-output-to-string (out)
      (format out "#+xcvb~%(module (")
      (when (build-grain-p grain)
        (format out "~@[~%~7,0T:fullname ~S~]" (subseq (fullname grain) 1)))
      (dolist (slot '(author maintainer version licence description long-description))
        (when (and (slot-boundp grain slot) (slot-value 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)
  