From f81f28736f46b3ab108dafffa1cc6632287dfa65 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Thu, 15 Apr 2010 19:41:37 -0400
Subject: [PATCH] Add a slot to make POIU happy.

---
 asdf.lisp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/asdf.lisp b/asdf.lisp
index 8881b0d4..c50cde6c 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -63,7 +63,7 @@
         (remove "asdf" excl::*autoload-package-name-alist* :test 'equalp :key 'car))
   (let* ((asdf-version
           ;; the 1+ hair is to ensure that we don't do an inadvertent find and replace
-          (subseq "VERSION:1.700" (1+ (length "VERSION"))))
+          (subseq "VERSION:1.701" (1+ (length "VERSION"))))
          (existing-asdf (find-package :asdf))
          (versym '#:*asdf-version*)
          (existing-version (and existing-asdf (find-symbol (string versym) existing-asdf)))
@@ -791,6 +791,8 @@ actually-existing directory."
    (version :accessor component-version :initarg :version)
    (in-order-to :initform nil :initarg :in-order-to
                 :accessor component-in-order-to)
+   ;; This one is used by POIU. Maybe in the future by ASDF instead of in-order-to?
+   (load-dependencies :accessor component-load-dependencies :initform nil)
    ;; XXX crap name, but it's an official API name!
    (do-first :initform nil :initarg :do-first
              :accessor component-do-first)
@@ -2024,6 +2026,8 @@ Returns the new tree (which probably shares structure with the old one)"
                   :when serial :do (setf *serial-depends-on* name))))
         (compute-module-components-by-name ret))
 
+      (setf (component-load-dependencies ret) depends-on) ;; Used by POIU
+
       (setf (component-in-order-to ret)
             (union-of-dependencies
              in-order-to
-- 
GitLab