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