diff --git a/asdf.lisp b/asdf.lisp index ee19a7705398ce563810e5d76754550eacbd32f7..946e7c48ded70d5900b72b918683e6b9fdbc5ceb 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 f3e4990a81c2205299113d9cc7ee7f9007d200e9..9555c6e63f0896660f17346523ce08bcdef5564d 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)