From c2ad33d972a4267329b8a68dab301152af71b00f Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Thu, 27 Mar 2014 14:27:22 -0400
Subject: [PATCH] Better explain the ECL bug found by in
 test-xach-update-bug.script

---
 test/test-xach-update-bug.script | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/test/test-xach-update-bug.script b/test/test-xach-update-bug.script
index b426c606..b90281cd 100644
--- a/test/test-xach-update-bug.script
+++ b/test/test-xach-update-bug.script
@@ -1,6 +1,7 @@
 ;;; -*- Lisp -*-
 
 (setf asdf/cache:*asdf-cache* nil) ;; disable cache between those two very different compilations.
+;;(setf asdf::*load-system-operation* 'load-bundle-op) ;; This triggers a bug on ECL. See below.
 
 (defparameter foo :test-asdf-location-change)
 
@@ -40,11 +41,12 @@
  (subpathname *test-directory* "xach-foo-2/b.lisp")
  (component-pathname (find-component foo2 "b")))
 (DBG "load foo yet again. It should see the pathname has changed and load it anew")
-;;; ECL bug: this fails if we use load-fasl-op instead of load-op:
-;;; the test-asdf-location-change.fasb is linked and loaded,
-;;; but that fails to create the :second-version package;
-;;; loading the same .fasb in another ecl works fine, and defined (second-version:wtf). WTF?
-;;; Test it by replacing load-op below by load-bundle-op, and trace load* and other functions.
-(operate 'load-op foo)
+;;; ECL bug: this fails if we use load-bundle-op instead of load-op as *load-system-operation*
+;;; in bundle.lisp. The test-asdf-location-change.fasb is linked and loaded, but that fails to
+;;; create the :second-version package; loading the same .fasb in another ecl works fine, and
+;;; defines (second-version:wtf). WTF? You can test this bug by uncommenting the
+;;; (setf asdf::*load-system-operation* 'load-bundle-op) line at the beginning of this file.
+;;; NB: works on MKCL.
+(load-system foo)
 (assert (symbol-value (find-symbol* :loaded :second-version)))
 (assert-equal 42 (symbol-call :second-version :wtf))
-- 
GitLab