From 32bf1a28e008ce7ec97f7f6546da91f139df8b0e Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Wed, 18 Nov 2015 17:35:12 -0500
Subject: [PATCH] Don't individually invalidate functions

It's not required anymore, since we now wholly punt when upgrading from
an ancient ASDF 1 or 2, regardless of the implementation.
---
 upgrade.lisp | 16 +---------------
 1 file changed, 1 insertion(+), 15 deletions(-)

diff --git a/upgrade.lisp b/upgrade.lisp
index acd22b296..73e0736ed 100644
--- a/upgrade.lisp
+++ b/upgrade.lisp
@@ -90,21 +90,7 @@ previously-loaded version of ASDF."
   (let ((redefined-functions ;; gf signature and/or semantics changed incompatibly. Oops.
           ;; NB: it's too late to do anything about functions in UIOP!
           ;; If you introduce some critically incompatibility there, you must change name.
-          '(#:component-relative-pathname #:component-parent-pathname ;; component
-            #:source-file-type
-            #:find-system #:system-source-file #:system-relative-pathname ;; system
-            #:find-component ;; find-component
-            #:explain #:perform #:perform-with-restarts #:input-files #:output-files ;; action
-            #:component-depends-on #:operation-done-p #:component-depends-on
-            #:traverse ;; backward-interface
-            #:map-direct-dependencies #:reduce-direct-dependencies #:direct-dependencies ;; plan
-            #:operate  ;; operate
-            #:parse-component-form ;; defsystem
-            #:apply-output-translations ;; output-translations
-            #:process-output-translations-directive
-            #:inherit-source-registry #:process-source-registry ;; source-registry
-            #:process-source-registry-directive
-            #:trivial-system-p)) ;; bundle
+          '()) ;; empty now that we don't unintern, but wholly punt on ASDF 2.26 or earlier.
         (redefined-classes
           ;; redefining the classes causes interim circularities
           ;; with the old ASDF during upgrade, and many implementations bork
-- 
GitLab