From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 4 Mar 2024 14:42:22 +0000 (+0000)
Subject: dump-ecl: Remove half-finished flailing.
X-Git-Url: https://git.distorted.org.uk/~mdw/runlisp/commitdiff_plain/35f7e5a0bf3d4fd5984e3ef3d8daf91417eff6e4

dump-ecl: Remove half-finished flailing.
---

diff --git a/dump-ecl b/dump-ecl
index e777e50..924009e 100755
--- a/dump-ecl
+++ b/dump-ecl
@@ -39,12 +39,7 @@ cat >"$tmp/ecl-build.lisp" <<'EOF'
 ;; 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"))
-			       (with-cache (and cache-pkg
-						))
-			       (session-pkg (find-package "ASDF/SESSION"))
-			       (with-session (and session-pkg
-						  (find-symbol
-						   "CALL-WITH-ASDF-SESSION"))))
+		 (session-pkg (find-package "ASDF/SESSION")))
 	    (symbol-function
 	     (cond (cache-pkg
 		    (find-symbol "CALL-WITH-ASDF-CACHE" cache-pkg))