dump-ecl: Remove half-finished flailing.

diff --git a/dump-ecl b/dump-ecl
index e777e5043b3ec72ce964f7109d2184a04c861000..924009eecd89459f445c3a6dc7760f24722e6ca5 100755 (executable)
--- 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"))
 ;; 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))
            (symbol-function
             (cond (cache-pkg
                    (find-symbol "CALL-WITH-ASDF-CACHE" cache-pkg))