From 47bfbed8c3a204ba56f2bbb60e22ee6eb714c25a Mon Sep 17 00:00:00 2001
From: rainthree <rainthree@inbox.lv>
Date: Fri, 25 Aug 2023 19:02:56 +0300
Subject: [PATCH] Fixed this bug
 https://github.com/svetlyak40wt/asdf-just-done-bug/ WARNING: \Computing
 just-done stamp  for action (ASDF/LISP-ACTION:LOAD-OP foo/foo file-type), but
 dependency (ASDF/LISP-ACTION:COMPILE-OP foo/foo file-type) wasn't done yet!

---
 plan.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/plan.lisp b/plan.lisp
index af67363f..49c34eae 100644
--- a/plan.lisp
+++ b/plan.lisp
@@ -300,6 +300,9 @@ initialized with SEED."
                       ((and action-status (or (status-keep-p action-status)
                                               (and just-done (status-stamp action-status))))
                        (merge-action-status action-status status))
+		      ((and just-done
+                            (not (status-need-p action-status)))
+                        status)
                       (just-done
                        ;; It's OK to lose some ASDF action stamps during self-upgrade
                        (unless (equal "asdf" (primary-system-name dc))