From 35f7e5a0bf3d4fd5984e3ef3d8daf91417eff6e4 Mon Sep 17 00:00:00 2001 Message-Id: <35f7e5a0bf3d4fd5984e3ef3d8daf91417eff6e4.1715685628.git.mdw@distorted.org.uk> From: Mark Wooding Date: Mon, 4 Mar 2024 14:42:22 +0000 Subject: [PATCH] dump-ecl: Remove half-finished flailing. Organization: Straylight/Edgeware From: Mark Wooding --- dump-ecl | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) 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)) -- [mdw]