diff --git a/TODO b/TODO index e7387cd14295255467f82ca3cabbfe597727ccf0..8b4be1a5bccb7c459b4ac2189f675cc00bb25b5d 100644 --- a/TODO +++ b/TODO @@ -292,6 +292,8 @@ so these would have to be fixed first. And that's why I didn't do it. It looks like SWANK can be fixed soon, though, so we'll see. +* Hunt systems that use obsolete APIs + * Get rid of component-properties ** directly use component-properties: *** yaclml.asd => misguided :features for version comparison diff --git a/backward-internals.lisp b/backward-internals.lisp index 03b332e96871f75294eee5bef6acd0d68f298b8c..3a3be5084fb96c628e0319f636b2b53248e226c8 100644 --- a/backward-internals.lisp +++ b/backward-internals.lisp @@ -4,24 +4,6 @@ (uiop/package:define-package :asdf/backward-internals (:recycle :asdf/backward-internals :asdf) (:use :uiop/common-lisp :uiop :asdf/upgrade :asdf/find-system) - (:export ;; for internal use - #:make-sub-operation - #:load-sysdef #:make-temporary-package)) + (:export)) (in-package :asdf/backward-internals) -(when-upgrading (:when (fboundp 'make-sub-operation)) - (defun make-sub-operation (c o dep-c dep-o) - (declare (ignore c o dep-c dep-o)) (asdf-upgrade-error))) - -;;;; load-sysdef -(with-upgradability () - (defun load-sysdef (name pathname) - (load-asd pathname :name name)) - - (defun make-temporary-package () - ;; For loading a .asd file, we don't make a temporary package anymore, - ;; but use ASDF-USER. I'd like to have this function do this, - ;; but since whoever uses it is likely to delete-package the result afterwards, - ;; this would be a bad idea, so preserve the old behavior. - (make-package (fresh-package-name :prefix :asdf :index 0) :use '(:cl :asdf)))) - diff --git a/upgrade.lisp b/upgrade.lisp index 73e0736ed717deef1fcf4785ce1798ae302b040c..7834ea74e170d4966253988174c9bf3260d9aaaf 100644 --- a/upgrade.lisp +++ b/upgrade.lisp @@ -112,12 +112,6 @@ previously-loaded version of ASDF." ;;; Self-upgrade functions (with-upgradability () - (defun asdf-upgrade-error () - ;; Important notice for whom it concerns. The crux of the matter is that - ;; TRAVERSE can be completely refactored, and so after the find-system returns, it's too late. - (error "When a system transitively depends on ASDF, it must :defsystem-depends-on (:asdf)~%~ - Otherwise, when you upgrade from ASDF 2, you must do it before you operate on any system.~%")) - (defun cleanup-upgraded-asdf (&optional (old-version (first *previous-asdf-versions*))) (let ((new-version (asdf-version))) (unless (equal old-version new-version)