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