From 6f3610745f8870d8c22ae906b643208315593de3 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Tue, 16 Mar 2010 09:01:08 -0400
Subject: [PATCH] add component-relative-pathname to the fmakunbound list, for
 hot upgrade (found by the pathname-test in ecl)

---
 asdf.lisp         | 3 ++-
 test/run-tests.sh | 6 +++++-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index ee19a770..946e7c48 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -146,7 +146,8 @@
      ':asdf
      :use '(:common-lisp :asdf-utilities)
      :unintern '(#:*asdf-revision* #:around #:asdf-method-combination)
-     :fmakunbound '(#:perform #:explain #:output-files #:operation-done-p)
+     :fmakunbound '(#:perform #:explain #:output-files #:operation-done-p
+                    #:component-relative-pathname)
      :export
      '(#:defsystem #:oos #:operate #:find-system #:run-shell-command
        #:system-definition-pathname #:find-component ; miscellaneous
diff --git a/test/run-tests.sh b/test/run-tests.sh
index f3e4990a..9555c6e6 100755
--- a/test/run-tests.sh
+++ b/test/run-tests.sh
@@ -134,7 +134,11 @@ case "$lisp" in
     nodebug="-batch"
     eval="-eval" ;;
   ecl)
-    command=ecl
+    #if [ -x /usr/lib/ecl/ecl-original ] ; then
+    #  command=/usr/lib/ecl/ecl-original
+    #else
+      command=ecl
+    #fi
     flags="-norc"
     eval="-eval" ;;
   lispworks)
-- 
GitLab