anchor.diff:  
   (defun* class-for-type (parent type)
     (or (loop :for symbol :in (list
  -                             (unless (keywordp type) type)
  -                             (find-symbol (symbol-name type) *package*)
  -                             (find-symbol (symbol-name type) :asdf))
  +                             type
  +                             (find-symbol* type *package*)
  +                             (find-symbol* type :asdf))
           :for class = (and symbol (find-class symbol nil))
           :when (and class (subtypep class 'component))
           :return class)
  
positive.code:                                (cons existing-version *upgraded-p*)
                                 *upgraded-p*))))))
  
  ;; More cleanups in case of hot-upgrade. See https://bugs.launchpad.net/asdf/+bug/485687
  (when *upgraded-p*
     #+ecl
     (when (find-class 'compile-op nil)
       (defmethod update-instance-for-redefined-class :after
           ((c compile-op) added deleted plist &key)
         (declare (ignore added deleted))
         (let ((system-p (getf plist 'system-p)))
           (when system-p (setf (getf (slot-value c 'flags) :system-p) system-p)))))
     (when (find-class 'module nil)
       (eval
        '(progn
           (defmethod update-instance-for-redefined-class :after
               ((m module) added deleted plist &key)
             (declare (ignorable deleted plist))
             (when *asdf-verbose* (format *trace-output* "Updating ~A~%" m))
             (when (member 'components-by-name added)
               (compute-module-components-by-name m)))
           (defmethod update-instance-for-redefined-class :after
               ((s system) added deleted plist &key)
             (declare (ignorable deleted plist))
             (when *asdf-verbose* (format *trace-output* "Updating ~A~%" s))
             (when (member 'source-file added)
               (%set-system-source-file (probe-asd (component-name s) (component-pathname s)) s)))))))
  
  ;;;; -------------------------------------------------------------------------
  ;;;; User-visible parameters
  ;;;;
  
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))))
  