dump-ecl: Remove half-finished flailing.

[runlisp] / dump-ecl

diff --git a/dump-ecl b/dump-ecl
index e777e50..924009e 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"))
-                              (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))