From 4122e7f7faa5a5cf5ecbaf0fe9a5889044bfc931 Mon Sep 17 00:00:00 2001 Message-Id: <4122e7f7faa5a5cf5ecbaf0fe9a5889044bfc931.1715655266.git.mdw@distorted.org.uk> From: Mark Wooding Date: Mon, 4 Mar 2024 14:43:48 +0000 Subject: [PATCH] dump-ecl: Look up `load-asd' by hand because the load-ECL might not know it. Organization: Straylight/Edgeware From: Mark Wooding --- dump-ecl | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/dump-ecl b/dump-ecl index 924009e..0648d86 100755 --- a/dump-ecl +++ b/dump-ecl @@ -37,20 +37,20 @@ cat >"$tmp/ecl-build.lisp" <<'EOF' ;; up-to-date version of ASDF then it won't bother loading the system ;; definition from disk which knows about the actual source files. And if it ;; doesn't think it has any source files then it won't compile anything. -(asdf:load-asd - (funcall (let* ((cache-pkg (find-package "ASDF/CACHE")) - (session-pkg (find-package "ASDF/SESSION"))) - (symbol-function - (cond (cache-pkg - (find-symbol "CALL-WITH-ASDF-CACHE" cache-pkg)) - (session-pkg - (find-symbol "CALL-WITH-ASDF-SESSION" session-pkg)) - (t - (error "I don't know how to hack this version of ASDF: ~ - please report this as a bug."))))) - (lambda () - (asdf:search-for-system-definition "asdf"))) - :name "asdf") +(funcall (symbol-function (find-symbol "LOAD-ASD" "ASDF")) + (funcall (let* ((cache-pkg (find-package "ASDF/CACHE")) + (session-pkg (find-package "ASDF/SESSION"))) + (symbol-function + (cond (cache-pkg + (find-symbol "CALL-WITH-ASDF-CACHE" cache-pkg)) + (session-pkg + (find-symbol "CALL-WITH-ASDF-SESSION" session-pkg)) + (t + (error "I don't know how to hack this version ~ + of ASDF: please report this as a bug."))))) + (lambda () + (asdf:search-for-system-definition "asdf"))) + :name "asdf") (defparameter *asdf* (asdf:find-system "asdf") "The `asdf' system itself.") -- [mdw]