anchor.diff:  ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; buffer-read-only: t; -*-
  -;;; This is ASDF 3.1.4.20: Another System Definition Facility.
  +;;; This is ASDF 3.1.6: Another System Definition Facility.
   ;;;
   ;;; Feedback, bug reports, and patches are all welcome:
   ;;; please mail to <asdf-devel@common-lisp.net>.
  
positive.code:       (unless (equal primary system)
          (let ((top (find-system primary nil)))
            (when (typep top 'package-inferred-system)
              (if-let (dir (system-source-directory top))
                (let* ((sub (subseq system (1+ (length primary))))
                       (f (probe-file* (subpathname dir sub :type "lisp")
                                       :truename *resolve-symlinks*)))
  
negative.code:           (setf (slot-value c 'properties)
                  (acons property new-value (slot-value c 'properties)))))
      new-value))
  ;;;; ---------------------------------------------------------------------------
  ;;;; Handle ASDF package upgrade, including implementation-dependent magic.
  
  