X-Git-Url: https://git.distorted.org.uk/~mdw/runlisp/blobdiff_plain/627ff527e9062eb2ad4c94b6f674bae087217f6e..35f7e5a0bf3d4fd5984e3ef3d8daf91417eff6e4:/dump-ecl

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))