From 0a311c7a905f4bfd51857e88dd1bc640fbdb7dee Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Mon, 27 Mar 2017 22:09:12 -0400
Subject: [PATCH] Make asdf/contrib/debug-plan loadable as system

And add more debug information.
---
 contrib/debug-plan.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/contrib/debug-plan.lisp b/contrib/debug-plan.lisp
index a2378f9af..f488b2894 100644
--- a/contrib/debug-plan.lisp
+++ b/contrib/debug-plan.lisp
@@ -1,3 +1,5 @@
+(defpackage :asdf/contrib/plan (:use :cl)) ;; dummy, for use as package-inferred-system
+
 (in-package :asdf/plan)
 
 ;; NB: Whenever compute-action-stamp is changed, this file must be updated
@@ -45,7 +47,7 @@
                                (action-path (make-action do dc))))
                        status)
                       (t
-                       (DBG "compute-action-stamp: forced by out of date dependency" (action-path (make-action o c)) action-status)
+                       (DBG "compute-action-stamp: forced by out of date dependency" (action-path (make-action o c)) (action-path (make-action do dc)) action-status)
                        (return (values nil nil))))))
               +status-good+))
             (dep-stamp (status-stamp dep-status)))
-- 
GitLab