anchor.diff:    (format s "~@<component ~S not found~@[ in ~A~]~@:>"
             (missing-requires c)
             (when (missing-parent c)
  -            (component-name (missing-parent c)))))
  +            (coerce-name (missing-parent c)))))
   
   (defmethod print-object ((c missing-component-of-version) s)
     (format s "~@<component ~S does not match version ~A~@[ in ~A~]~@:>"
  
positive.code:             #:apply-output-translations #:translate-pathname* #:resolve-location)
             :unintern
             (#:*asdf-revision* #:around #:asdf-method-combination
              #:split #:make-collector)
             :fmakunbound
             (#:system-source-file
              #:component-relative-pathname #:system-relative-pathname
  
negative.code:                                     :condition condition))))
                   (let ((*package* package))
                     (asdf-message
                      "~&~@<; ~@;Loading system definition from ~A into ~A~@:>~%"
                      on-disk *package*)
                     (load on-disk)))
              (delete-package package))))
  